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IDENTIFICATION 


PRODUCT CODE:  AC-S42B8A-MC 

PRODUCT NAPc: CZMLBAO ML11 PERFORMANCE EXERCISER 
PRODUCT DATE: 02-FEB-81 

MAINTAINER: STORAGE SYSTEMS DIAGNOSTICS 

AUTHOR : MICHELE D. ROSEN 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATIO’’ DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS —'. FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 0001 
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-TITLE ML11 PERFORMANCE EXERCISER 


;DURING INITIAL PROGRAM DEVELOPMENT, IT IS DESIRABLE 
[TO TREAT EACH OF THE 4 SKELETON FILES INDIVIDUALLY, 
;AND TO ASSEMBLE THEM INTO 4 SEPARATE OBJECT FILES. 

THIS IS DONE TO HASTEN THE PROCESS OF DETECTING AND 


‘CORRECTING SYNTAX ERRORS. 


;WHEN THE TIME COMES, HOWEVER, TO PRODUCE A DIAGNOSTIC 
PACKAGE WHICH WILL BE TAKEN TO A TEST STATION AND RUN, 
;THE SKELETONS MUST BE HANDLED DIFFERENTLY. THEY MUST 
BE ASSEMBLED TOGETHER TO PRODUCE A SINGLE OBJECT FILE. 
jA FURTHER RESTRICTION IS THAT THE FLAG ‘ONEFILE' MUST 
:BE DEFINED (TO INDICATE THAT ALL 4 OF THE SKELETONS 
;ARE NOW COMBINED INTO THE REQUIRED SINGLE OBJECT FILE). 


} 
gNOTE THAT ‘ONEFILE’ IS NOT DEFINED WITHIN THE SOURCE 
;CODE OF ANY OF THE SKELETONS, BUT THAT IT CAN EASILY 
7BE ACCOMPLISHED BY INCLUDING THIS FILE (ONEFILEX.MAC) 
sAS PART OF THE INPUT SPECIFICATIONS OF THE ASSEMBLY 
;COMMAND LINE. 
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1.0 GENERAL INFORMATION 
1.1. PROGRAM ABSTRACT 


THE ML11 PERFORMANCE EXERCISER IS A BLISS PROGRAM WHICH RUNS UNDER 
THE PDP=11 DIAGNOSTIC SUPERVISOR AND WHICH EXERCISES UP TO 8 ML11 
UNITS ON A SINGLE RH CONTROLLER. AN ML11 UNIT IS A FAST, RANDOM AC- 
CESS, BLOCK MODE MOS MEMORY SYSTEM WITH ECC CAPABILITY. IT IS MADE 
UP OF 3 CONTROL MODULES AND UP TO 16 ARRAY MODULES. IT IS A MASSBUS 
DEVICE, AND AS SUCH, CONFORMS TO MASSBUS STANDARDS. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME 
SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE 
TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. THIS PROGRAM CAN BE 4 
USED WITH XXDP+, ACT, APT, SLIDE AND PAPER TAPE. FOR A COMPLETE DES- 
CRIPTION OF THE RUNTIME SERVICES, REFER TO THE XXDP+ USER'S MANUAL. 
THERE IS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN SECTION 2 OF 
THIS DOCUMENT. 
1.2 SYSTEM REQUIREMENTS 
PDP-11 WITH 28K WORDS OF MEMORY 
CONSOLE TERMINAL 
RH11 OR RH70 CONTROLLER 
1 TO 8 ML11 DRIVES 


RKOS OR OTHER XXDP+ LOAD MEDIA 


a. 


uw SF Ww Hl 
. . _ s 


1.3. RELATED DOCUMENTS AND STANDARDS 


THE HARDWARE DESIGN IS EXPECTED TO CONFORM TO THE STANDARDS SET FORTH 
IN THE MASSBUS SPECIFICATION (DEC STANDARD 159). 


a a DOCUMENTATION MAY PROVE USEFUL IN LEARNING MORE ABOUT 
H : 


1. ML11 ENGINEERING SPECIFICATION 

2. RWSO4 FIXED-HEAD DISK SUBSYSTEM USER'S MANUAL 
% THE ML11 PERFORMANCE EXERCISER'S PROGRAM LISTING 

# THE ML11 LOGIC TEST'S SPECIFICATIONS AND LISTINGS 

5. ML11 PROJECT PLAN 

6. * XXDP+ USER'S MANUAL (CHQUS) 
7 


eae DIAGNOSTIC SUPERVISOR DOCUMENTATION (SUPINT, SUPFUN, 
SU 


ad hreutal . 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 
ML11 SUBSYSTEM FAULTS WILL BE DETECTED BUT NOT ISOLATED, SINCE OTHER 
DIAGNOSTICS WILL BE AVAILABLE FOR TROUBLESHOOTING THE EXACT CAUSE OF 
FAILURE. A LIST OF AVAILABLE DIAGNOSTIC TOOLS IS INCLUDED IN APPEN- 
DIX A OF THE ML11 FUNCTIONAL SPECIFICATION. 

1.5 ASSUMPTIONS 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A VERY BRIEF DESCRIPTION OF THOSE PARTS OF THE 
DIAGNOSTIC RUNTIME SERVICES OF THE PDP=-11 DIAGNOSTIC SUPERVISOR WHICH 


ZFLAGS CLEAR ALL FLAGS (SEE SECTIGN 2.3) 


; ARE APPLICABLE FOR THIS EXERCISER. CONSULT THE XXDP+ USER'S MANUAL 
| (CHQUS) FOR MORE DETAILS. 
| 2.+ COMMANDS 
THE FOLLOWING IS A LIST OF THE 11 COMMANDS AVAILABLE TO THE DRS. ANY 
COMMAND IS RECOGNIZED BY ITS FIRST 3 CHARACTERS, AND MANY COMMANDS 
MAY BE MODIFIED BY OPTIONAL SWITCHES WHICH ARE DESCRIBED IN THE NEXT 
SECTION. 
DRS COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
PROCEED CONTINUE FROM AN ERROR HALT 
: EXIT RETURN TO THE XXDP+ MONITOR 
ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
| CONSIDERED TO BE ACTIVE AT START TIME) 
| DROP DEACTIVATE A UNIT 
PRINT PRINT STATISTICAL INFORMATION 
DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
| 
| 
| 
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2.2 SWITCHES 
SWITCHES ARE USED TO MODIFY PROGRAM OPERATION, AND ARE APPENDED TO 
COMMANDS. THE SWITCHES WHICH HAVE MEANING FOR THIS EXERCISER AND IN- 
FORMATION ABOUT THEIR USE ARE GIVEN IN THE FOLLOWING TWO TABLES. 
SWITCH EFFECT 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS (SEE SECTION 2.3) 


/tOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
‘ DDDDD PASSES ONLY (DDDDD = 1 TO 64000). 


/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST_EXAMPLE: /UNITS:0:3:5-7 
USE UNITS 0,3.5,6,7 (UNIT NUMBERS = 0-7) 


EXAMPLE OF SWITCH USAGE: 


START/PASS:1000/ECP: 100 
THE EFFECT OF THIS COMMAND WILL BE: 
1. ALL UNITS WILL BE TESTED 1000 TIM 


2. THE END OF PASS MESSAGES WILL BE 
PRINTED AFTER EACH 100 PASSES ONLY. . 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


COMMAND. 
PASS FLAGS EOP UNITS 

START x x X X 
RESTART x x xX X 
CONTINUE X Xx x 
PROCEED xX 
DROP 7 
ADD ¥ 
PRINT 
DISPLAY x 

FLAGS 
ZFLAGS 

eo EXIT 


H 
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2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATION PARAMETERS SUCH AS LOOPING 
ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN CLEARED UNTIL 
EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS ARE ALSO CLEARED AFTER 
A START COMMAND UNLESS SET USING THE FLAG SWITCH. THE ZFLAGS COMMAND 
MAY ALSO BE USED TO CLEAR ALL FLAGS. WITH THE EXCEPTION OF THE START 
AND ZFLAGS COMMANDS, NO COMMANDS AFFECT THE STATE OF THE FLAGS. THEY 
REMAIN SET OF CLEARED AS SPECIFED BY THE LAST FLAG SWITCH. 


| FLAG EFFECT 
HOE HALT ON ERROR - CONTROL IS RETURNED TO 
| DRS COMMAND MODE 
| LOE LOOP ON ERROR 
IER* INHIBIT ALL ERROR REPORTS 
IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

BOE “BELL'’ ON ERROR 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 


* ERROR MESSAGES ARE DESCRIBED IN SECTION 4.7 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. MORE THAN ONE 
FLAG MAY BE SPECIFIED WITH THE /FLAGS SWITCH. FOR EXAMPLE, TO CAUSE 
THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS AND TYPE A “BELL” 
ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


| 

| 

ISR INHIBIT STATISTICAL REPORTS 
/FLAGS : LOE: 1ER:BOE 
| 

| 
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2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE DIAGNOSTIC RUNTIME ey PROMPTS 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE H YOU 

MUST ANSWER “'Y'' AFTER A START COMMAND UNLESS THE NARDUARE” INFORMATION 
HAS BEEN PRELOADED USING THE SETUP UTILITY (SEE CHAP. 6 OF THE XXDP+ 
USER'S MANUAL). WHEN YOU ANSWER THIS QUESTION WITH A ‘'Y'’ THE RUNTIME 
SERVICES WILL ASK FOR THE NUMBER OF UNITS (IN DECIMAL). YOU WILL THEN 
BE ASKED THE FOLLOWING QUESTIONS FOR EACH UNIT: 

2.4.1 QUESTIONS AND ANSWERS 

1. CSR ADDRESS (172000) 0? 


ANSWER: pha CSR ADDRESS OF THE RH CONTROLLER 
(OCTAL, DEFAULT 172000). 


2. INTERRUPT VECTOR (204) 0? 
ANSWER: ps INTERRUPT VECTOR ADDRESS 
(OCTAL, DEFAULT 204). 
3. BR LEVEL FOR INTERRUPT (5) 0? 
ANSWER: THE BUS REQUEST LEVEL FOR INTERRUPT 
(OCTAL, DEFAULT 5). 
4. DRIVE NUMBER (0) 0? 


ANSWER: pi PHYSICAL DRIVE NUMBER(S) OF THE DRIVE(S) TO BE TESTED 
CTAL, {0-7}, DEFAULT 0). 


SEQ 0008 
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2.4.2 SUMMARY OF HARDWARE QUESTION SEQUENCE 


LAR RRRASARALLALS & | 
os 


* 

* # UNITS? > 

* ® 

eeeereteeerkenteret 
' 

PARR RASASALASLS SE & 

* 


& 

* (SR ADDRESS? * 

& * 

-ARRSASALASASASA SR & 
' 

RRRERAEEEEKEEEKREERE 

* 


. 
* VECTOR? * 
. . 


eeeecceeereeereaeee 
' 

Reeeeeaeeeeeraerae 

® a 


* @RLEVEL? *¢ 

* * 

eeeeeetereteneeee 
\ 


Reeeeeneeeeeeaeee 
© 


‘ 
* DRIVE NUMBER? * 
+ * 


Reekeareeearerene 


SEQ C909 
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2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS, OR AFTER A RESTART OR 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME Soe he et 
OPERATION MODES. YOU WILL BE PROMPTED BY ayy ® oy Ww CL 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y'*, THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S). 


INCLUDED IN THIS SECTION ARE QUESTIONS ABOUT PARAMETERS WHICH AFFECT 
PROGRAM OPERATION. REQUESTS FOR SOFTWARE OPTIONS SHOULD BE DISCUSSED 
AND INCORPORATED INTO THIS SPECIFICATION AS SOON AS POSSIBLE, AND CER- 
“ TAINLY BEFORE SIGNOFF TIME. 


IF A “Z (CONTROL-Z) IS TYPED AS THE ANSWER TO ANY QUESTION, THE PRO- 
GRAM WILL START TO EXECUTE. 


If A *C (CONTROL-C) IS TYPED AT ANY TIME, CONTROL WILL RETURN TO THE 
DIAGNOSTIC SUPERVISOR. 


2.5.1 QUESTIONS AND ANSWERS 


1. LIMIT RANGE OF SGCTORS TO BE TESTED (N) L? 


ANSWER: TO TEST ONLY A CERTAIN RANGE OF SECTORS INSTEAD OF AN EN- 
TIRE UNIT. ALTHOUGH THIS QUESTION IS NOT OPTIONAL, IT 
SHOULD BE ANSWERED "NO' UNLESS THE ANSWER TO THE HARDWARE 
QUESTION *# UNITS ?°' WAS 1. 
En {Y TO TEST PARTIAL UNIT, N FOR ENTIRE UNIT}, DE- 
UL 


THE QUESTIONS WHICH FOLLOW ARE OPTIONAL , AND DEPEND ON AN AFFIRMA~ 
TIVE ANSWER TO THE PREVIOUS QUESTION: 
2. DO YOU KNOW THE EXACT RANGE OF SECTORS TO BE TESTED (N) L? 
ANSWER: THIS DECIDES WHETHER TO ASK FOR SECTOR NUMBERS OR 
BOARD NUMBER 


THE NEXT TWO QUESTIONS WILL BE ASKED ONLY IF QUESTION 2 IS 
ANSWERED YES: 


3. FIRST SECTOR TO TEST (0) 0? 


ANSWER: THE Rap NUMBER WHERE TESTING B 
(OC {0-7777 FOR ML11A, 0-3777 
DEFAULT 0). 


EGINS 
7 FOR ML11B}, 
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4. LAST SECTOR TO TEST (LAST) 0? 
ANSWER : tortie LAST SECTOR NUMBER TO B 


E TES 
Q-7777 FOR MLI1A, 0-377 


TED 
77 
DEF AUT 7777). 


FOR ML11B), 
a NEXT QUESTION WILL BE ASKED ONLY IF QUESTION 2 IS ANSWERED 


5. WHICH BOARD {1-16} SHOULD BE TESTED (1) D? 
ANSWER: pb NUMBER OF THE ONLY at TO BE TESTED 
(DECIMAL, {1-16}, DEFAULT 1). 
6. THE PROGRAM OPTIONS INCLUDE: 
1. ADDRESS CHECK 
2. PATTERN TEST 
3. UNIQUE DATA CHECK 
4. MARCH TEST 
5. RANDOMNESS TESTS 
DO YOU WANT TO DROP ANY OF THESE FROM THE EXERCISER (N) L? 
ANSWER: asst DECIDES WHETHER TO ASK FOR OPTION NUMBERS. 


ICAL, {Y FOR PARTIAL EXERCISER, N FOR COMPLETE EX- 
ERCISER}, DEFAULT N). 


THE FOLLOWING SET OF QUESTIONS WILL BE ASKED ONLY IF QUESTION 
6 IS ANSWERED YES: 


7. DROP OPTION 1 (N) L? 
8. DROP OPTION 2 (N) L? 
9. DROP OPTION 3 (N) L? 
10. DROP OPTION 4 (N) L? 


11. DROP OPTION 5 (N) L? 


SEQ 0011 
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ENABLE REFRESH MARGINING (N) L? 
ANSWER: NORMAL OPERATION IS WITHOUT REFRESH MARGINING. 


(LOGICAL, {Y TO ENABLE, N 


13. DISABLE ERROR CORRECTION (N) L? 


14. 


15. 


ANSWER: NORMAL OPERATION IS WITH ECC ENABLED 


TO DISABLE}, DEFAULT N). 


(LOGICAL, {Y TO DISABLE, N TO ENABLE}, DEFAULT ND. 


ENABLE END OF PASS SUMMARY PRINTOUT (N) L? 


ANSWER: NORMAL OPERATION IS WITHOUT END OF PASS SUMMARY PRINTOUT. 
(LOGICAL, {Y TO ENABLE, N TO DISABLE PRINTOUT}, DEFAULT N). 


ENABLE ERROR PRINTOUTS (N) L? 


ANSWER: NORMAL OPERATION IS WITHOUT ERROR PRINTOUTS. 
(LOGICAL, {Y TO ENABLE, N TO DISABLE PRINTOUT), DEFAULT N). 


2.5.2 SUMMARY OF SOFTWARE QUESTION SEQUENCE 


teeeeteeeteeeeeee 

* LIMIT RANGE * 

* OF SECTORS? * 

eeeeteeeeteeeeeee 
\ 

YES 
eeeesereeeeeeeeee 
* KNOW EXACT * 
* SECTORS? * 


RERKKAAKAARKKAKEKE 


/ 
YES / 
/ 


eereererreeeeee 
* 1ST SECTOR? * 
eetererreereree 
' 
eeereeerreeenee 
* LAST SECTOR?* 


eeeeereererrree 


\ 
\ NO 
\ 


geekkeekkeeenee 


*BOARD NUMBER?* 


kkeeeakkeeeraerenk 


(CONTINUED ON NEXT PAGE) 


SEQ 0012 


r 


mL11 bey RL EXERCISER 


USER DOCUMENTA 


N 1 
MACRO M1113 24-OCT-80 09:59 PAGE 14 


; 
' 
RERAATARARAEAAEEE 


YES 


# DROP ANY teenenennnana-->! 


* OPTIONS? * 


NO 


eektkteeneenreene 

* PAT # USED * 

* WITH MARCH? * 

eteeeteereeeeeene 
' 


i 
tteeteeeeeeeeeeee 
* ENABL REFRESH * 
* MARGINING? * 


eeeeeeeeeeererene 
' 
eeeeteteerereeeet 
* DISABLE * 
e ECC? * 
ttteteeeererereee 
1 
eeteeeetrerereree 
* ENABLE * 
* EOP SUMMARY? * 
eeerereeerererere 
! 
teeetererereerene 
e ENABLE * 
* PRINTOUTS? * 


eeeeeeaerereteree 


' 
tAR RAS SSASAAL SA SD A SG | 


* DROP OPTION 1? * 


(AR ARAASASALALL SSA A | 
' 


(ARRAS SSSSAASAR RASA 


* DROP OPTION 2? * 
eeeeteeeeeeeeerere 
' 


RRAKAAAARATETAATEEEE 


* DROP OPTION 3? * 
teeeeeereeeeeerere 
' 


eeeneeeetereereree YES 
* DROP OPTION 4? t----->! 
kkk kkeketeeeetees $ 

NO ! : 
RetKekketeteeeeet ' 
* PAT # USED * : 
* WITH MARCH? * 


RAAEKEKEHEEEEEEEE 


tteeeeeeererereete 


* DROP OPTION 5? * 


REKKKHEKEKTARETEEEE 
' 
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2.6 EXTENDED P-TABLE DIALOGUE 
WHEN YOU ANSWER THE HARDWARE QUESTIONS, ry a vets ath ty 


WAY TO BUILD THIS TABLE m TO ANSWER ALL QUESTIONS FOR EACH UNIT 
TO BE TESTED. IF YOU HAVE A fag 4 DEVICE, SUCH AS A MASS 
STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION DEVICE 

WITH SEVERAL LINES, 4 DIALOGUE BECOMES TEDIOUS BECAUSE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


SUPPOSE YOU ARE TESTING A HYPOTHETICAL DEVICE, THE X¥11 WHICH IS 
MADE UP OF ONE CONTROL MODULE WITH 8 UNITS (SUB-DEVICES). THESE 
8 UNITS, NUMBERED 0 THROUGH 7, HAVE JUST ONE HARDWARE PARAMETER 
THAT CAN VARY AMONG UNITS, CALLED THE Q-FACTOR. 


THE 3 EXAMPLES WHICH FOLLOW SHOW DIFFERENT WAYS OF ANSWERING THE 
HARDWARE QUESTIONS TO ACHIEVE IDENTICAL RESULTS. IN EACH EXAM- 
sites. ARE TO BE 8 XY11°S TESTED WHICH HAVE THE FOLLOWING Q- 


UNIT # Q-FACTOR 


0 0 
1 1 
2 0 
3 ¢ 
4 0 
5 0 
6 1 
7 1 


EXAMPLE 1: ANSWER SEPARATELY FOR EACH UNIT 
# UNITS (D) ? 8<CR> 


UNIT 0 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ O<CR> 
Q-FACTOR (C) 0? O<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 1<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 1 ? O<Ck> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


SEQ 0014 
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UNIT 4 
CSR ADDRESS (0) ? 1600C0<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 1 ? 1<CR> 


UNIT 7 

CSR ADDRESS (0) ?  160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES 
WHEN A NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN 
SPECIFYING MULTIPLE UNITS! 


AS YOU CAN SEE, THE HARDWARE PARAMETERS DO NOT DIFFER 
SIGNIFICANTLY FROM UNIT TC UNIT. THE PROCEDURE SHOWN 
IS NOT VERY EFFICIENT. 


SERVICES TO MAKE FEWER PASSES THROUGH THE QUESTIONS. 
# UNITS (D) ? 8<CR> 


UNIT 0 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0? 0,1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2-5<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 6,7<CR> 
Q-FACTOR (0) 0? 1,1<CR> 


EXAMPLE 2: USE THE MULTIPLE SPECIFICATION FEATURE OF THE RUNTIME 
AS YOU CAN SEE IN THE ABOVE DIALOGUE, RUNTIME SERVICES 


SEQ 0015 


" ‘ 
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EXAMPLE 


2.7 Qui 
2.7.1 


SEC 

4 ENTRIES WERE BUILT. THE "=" CONSTRUCT TELLS THE DRS 
TO INCREMENT = A FROM THE FIRST VALUE i THE SEC- 
OND. IN THIS C ""2-5"" SPECIFIES SUB-DEVICES 2,3,4, 
AND 5. THE tsk ADRESS AND Q-FACTOR FOR THE 4 ENTRIES 
ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY SINCE THEY 
WERE ONLY SPECIFIED ONCE. THE LAST 2 UNITS ARE SPECI- 
FIED IN THE THIRD PASS. 


3: ACCOMPLISH THE WHOLE PROCESS IN JUST ONE PASS THROUGH 


THE QUESTIONS. 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0,1,0..,.1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS 
ENCLOSING A BLANK FIELD) DIRECT THE DRS TO REPEAT THE 
LAST REPLY. 

CK START-UP PROCEDURE 


TO START-UP THIS PROGRAM WHEN RUNNING UNDER XXDP+ 


1. BOOT XXDP+ 
2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ QUESTIONS 


3. TYPE “'R NAME"’, WHERE ‘'NAME’' IS THE FILENAME OF THE 
-BIN OR .BIC FILE FOR THIS PROGRAM 


TYPE “START 

ANSWER THE "CHANGE HW'’ QUESTION WITH "'Y" 
ANSWER ALL THE HARDWARE QUESTIONS 

ANSWER THE "CHANGE SW'' QUESTION WITH ‘'N’’ 


no WN 
° ° . ra 


SEQ 0016 
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WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 
2.7.2 TO START-UP THIS PROGRAM WHEN RUNNING UNDER ACT 
THE FILE WHICH WILL BE STARTED MUST, AT SOME TIME, HAVE BEEN CREATED 
WITH THE “SETUP* UTILITY PROGRAM. ASSUMING THAT THIS HAS BEEN DONE, 
THE START-UP PROCEDURE IS THE SAME AS THE ONE IN SECTION 2.7.1. 
.* TO CREATE A FILE USING THE SETUP UTILITY: 
1. TYPE “'R SETUP" 
2. THE TARGET ENVIRONMENT IS ACT, SO TYPE ‘‘AC"’ 
3. TYPE THE SETUP COMMAND: 


*SETUP OUTFILE.EXT=INFILE.EXT 
WHERE OUTFILE.EXT = THE NEWLY CREATED FILE 


AND INFILE.EXT = THE RELEASED .BIN FILE 


4. YOU WILL HAVE AN OPPORTUNITY TO SET UP A PERMANENT 
DEFAULT TEST CONFIGURATION BY ANSWERING THE HARDWARE 
AND SOFTWARE QUESTIONS. ONCE THIS IS DONE, YOU WILL 
NO LONGER BE FORCED TO ANSWER ‘'Y'' TO ‘‘CHANGE HW ?°' 
EVERY TIME YOU START THE PROGRAM. YOU WILL ALSO BE 
ASKED THE LSI AND 5OHZ QUESTIONS HERE. 


5. TYPE "EXIT" 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “‘IER’’ FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 
L 


WHERE : 
NAME = DIAGNOSTIC NAME 
TYPE ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
ay NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 


m 
zDun 


SEQ 0017 
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INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE ““IER'’ OR “‘IBR'’ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ~r yt pe! oe 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE A 


AYS 
PRINTED UNLESS THE ‘IER’, ‘“‘IBR'’ OR ‘IXR'’ FLAGS ARE SET (SECTION 2.3). 


THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED Raasente ERROR 
MESSAGE AND AN: ASSOCIATED BASIC ERROR MESSAGES 


3.2 SPECIFIC ERROR MESSAGES 
3.2.1 MESSAGES DURING INITIALIZATION 


DURING INITIALIZATION, THERE ARE 3 ERROR CONDITIONS WHICH CAN BE 
DETECTED AND WHICH CAUSE THE DRIVE TO BE DROPPED: 


CAUSE1 = '‘ (NOT POWERED UP)‘ 
CAUSE2 = ‘ (NOT AN ML11 UNIT)" 
CAUSES = ‘ (OPERATOR SELECTED TEST LIMITS INCORRECTLY)" 


THE "CAUSE3' MESSAGE IS THEN FOLLOWED BY 
EITHER: !"TOP SECTOR OF XXXXXX EXCEEDS SYSTEM LIMIT OF YYYYYY' 
OR: '"LOW SECTOR OF XXXXXX EXCEEDS TOP SECTOR OF YYYYYY' 


3.2.2 MESSAGES DURING TESTING 


AFTER INITIALIZATION, THERE ARE 4 ERROR DIAGNOSES WHICH ARE POSSIBLE: 


MSG1 = ‘==> RUN ML11 LOGIC TEST’ 


THIS MESSAGE APPEARS WHEN AN ML11 
SYSTEM ERROR OCCURS. THE USER IS 
INSTRUCTED TO RUN THE LOGIC TEST TO 
SEE IF THAT PROGRAM CAN ISOLATE THE 
REASON FOR THE FAILURE. NOTE THAT 
int | at IS NOT USED FOR DATA 


MSG2 = ‘==> RUN ML11 PROM MAINTENANCE PROGRAM’ 


THIS MESSAGE APPEARS WHENEVER ANY 
OF THE FOLLOWING CONDITIONS IS TRUE: 


A) AN ECC HARD ERROR (ECH OR UNC) IS 
DETECTED 


B) AN ARRAY REACHES ITS HARD OR SOFT 
ERROR THRESHOLD 


C) DURING A PERFORMANCE SUMMARY, IF 
AN ARRAY HAS REACHED OR EXCEEDED 
ITS HARD OR SOFT ERROR THRESHOLD. 


SEQ 0018 
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MSG3 = ‘SOFT ERROR’ 
A SOFT ERROR IS A CORRECTABLE DATA 
ERROR WHICH CAN BE ELIMINATED BY 
REWRITING AND REREADING. 

MSG4 = ‘HARD ERROR’ 
A HARD ERROR IS A CORRECTABLE DATA 


ERROR WHICH PERSISTS AFTER A REWRITE 
AND A REREAD. 


ERROR ERROR DIAGNOSTIC 
POSITION TYPE MESSAGE CAUSE OF ERROR/ACTION 


1ST ERRDF MSG1 ALL 6 RETRIES FAILED FOR AN ML11 SYSTEM 
ERROR WHICH WAS ORIGINALLY CONSIDERED 
TO BE NON-FATAL. DROP THE DRIVE. 
2ND ERRDF MSG1 CONTROLLER FATAL ERROR. DROP THE DRIVE. 
3RD ERRDF MSG1 DRIVE FATAL ERROR. DROP THE DRIVE. 
ANY READ OR WRITE CHECK COMMAND HAS 8 ERROR CALLS ASSOCIATED re. T.. 


5 FOR SYSTEM ERRORS (WHICH RESULT IN DROPPING THE DRIVE) AND 3 FO 
HARD AND SOFT DATA ERRORS (WHICH ARE COUNTED ON A PER ARRAY BASIS): 


THE SYSTEM ERRORS: 


ERROR ERROR DIAGNOSTIC 
POSITION TYPE MESSAGE CAUSE OF ERROR/ACTION 
1ST ERRDF MSG1 AFTER A SUCCESSFUL READ COMMAND, THE 


WRITE AND READ BUFFERS ARE COMPARED. 
IF THEY DO NOT MATCH PERFECTLY, THEN 
THE ECC LOGIC FAILED. OROP THE DRIVE. 


2ND ERRDF MSG1 ALL 6 RETRIES FAILED FOR AN ML11 SYSTEM 
ERROR WHICH WAS ORIGINALLY CONSIDERED 
TO BE NON-FATAL. DROP THE DRIVE. 

3RD ERRDF MSG1 CONTROLLER FATAL ERROR. DROP THE DRIVE. 

4TH ERRDF MSG1 DRIVE FATAL ERROR. DROP THE DRIVE. 


| 

ANY WRITE COMMAND HAS 3 POSSIBLE ERROR CALLS ASSOCIATED WITH IT: 
| 51H ERRDF MSG2 ECC HARD ERROR DETECTED. DROP THE DRIVE. 
| 
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THE DATA ERRORS: 


ERROR ERROR DIAGNOSTIC 
POSITION TYPE MESSAGE CAUSE OF ERROR/ACTION 


6TH ERRHRD MSG4 HARD ERROR. DURING ERROR ee deen 
RETRY FAILED AGAIN (AS IF A DATA ERROR 
IN THE SAME BIT POSITION). UPDATE THE 
HARD COUNT FOR THE ASSOCIATED ARRAY AND 
CHECK THE NEW COUNT AGAINST THE THRESHOLD. 


7TH ERRSOFT MSG3 SOFT ERROR. DURING ERROR CLASSIFICATION, 
RETRY FAILED AGAIN (AS IF A DATA ERROR IN 
A DIFFERENT BIT POSITION). UPDATE THE 
SOFT COUNT FOR THE ASSOCIATED ARRAY AND 
CHECK THE NEW COUNT AGAINST THE THRESHOLD. 


| 
8TH ERRSOFT MSG3 SOFT ERROR. DURING ERROR CLASSIFICATION, 
RETRY DID NOT PRODUCE ANOTHER DATA ERROR 
(THE RETRY MAY PASS, OR IT MAY FAIL FOR 
: SOME NEW REASON). UPDATE THE SOFT COUNT 
" FOR THE ASSOCIATED ARRAY AND CHECK THE NEW 
COUNT AGAINST THE THRESHOLD. 


THERE IS A CORRESPONDENCE BETWEEN EVERY NUMBER AND THE PLACE IN THE 
PROGRAM WHERE THE ERROR WAS DETECTED: 


A) THE MOST SIGNIFICANT DIGIT IDENTIFIES THE OPTION NUMBER. 
EXCEPTION: THE COMMAND INTEGRITY ROUTINE IS 
THOUGHT OF AS OPTION 0, AND SO ALL ITS ERROR 
NUMBERS WILL APPEAR TO ONLY BE 1 OR 2 SIGNIF- 


ICANT DIGITS. TAKE THE 0 TO BE A SIGNIFICANT 
DIGIT (SEE EXAMPLES). 


B) THE 2 LEAST SIGNIFICANT DIGITS ARE THE POSITIONAL 
NUMBERS TO IDENTIFY WHERE THE ERROR CALL IS LOCATED 
WITHIN THE OPTION. 


C) FOR OPTION 5, THE SECOND MOST SIGNIFICANT DIGIT IS 
USED TO IDENTIFY WHICH RANDOM TEST IS RUNNING. 


EXAMPLES: 


1) ERROR NUMBER: 6 => COMMAND INTEGRITY ROUTINE 
| (OPTION 0), ERROR 06 


2) ERROR NUMBER: 208 => OPTION 2, ERROR 08 
3) ERROR NUMBER: 5311 => OPTION 5, RAND3, ERROR 11 


SEQ 0020 
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BELOW 1S A SUMMARY OF THE ACTUAL ERROR CALLS IN EACH TEST OPTION: 


! THE "INTEGRITY' ROUTINE: 


!WRITE COMMAND: 


'ERRDF (1,MSG1,0); ‘eeee INTEGRITY ROUTINE ERROR 01 
'ERRDF (2,MSG1,0); teen INTEGRITY ROUTINE ERROR 02 *e* 
'ERRDF (3,MSG1,0); {ewes INTEGRITY ROUTINE ERROR 035 *#** 


!READ COMMAND : 


| 

xeeee 

| 
'ERRDF(4,MSG1,0);  !#e*® INTEGRITY ROUTINE ERROR 04 see 
‘ERRDF(5.MSG1.0): ieee INTEGRITY ROUTINE ERROR 05S *eee 
\ERRDF(S.MSG1.0): ieee INTEGRITY ROUTINE ERROR 06 tee 
\ERRDF(7.MSG1.0): ieee INTEGRITY ROUTINE ERROR 07 *ee* 
\ERRDF(B.MSG2,0): ieee INTEGRITY ROUTINE ERROR 08 *ee« 

‘ERRHRD(9,MSG4,0); ‘eeee INTEGRITY ROUTINE ERROR 09 #ee 
‘ERRSOFT(10,MSG3,0); ieee INTEGRITY ROUTINE ERROR 10 eee 
\ERRSOFT(11.MSG3,1):i#ee INTEGRITY ROUTINE ERROR 10 **e* 


'WRITE CHECK COMMAND: 
1,0); {see INTEGRITY ROUTINE ERROR 


geet 
1,0); ieee INTEGRITY ROUTINE ERROR rene 
0); ieee INTEGRITY ROUTINE ERROR ete 


MS 12 

MS 13 

MS 14 

M 'eeee INTEGRITY ROUTINE ERROR 12 tees 
17 
18 


G 
G 
G 
G2, 
S$ etre 


greet 
ttt 


0}; ieees INTEGRITY ROUTINE ERROR 
$8); ieeee INTEGRITY ROUTINE ERROR 
3°1): ieee INTEGRITY ROUTINE ERROR 


ERRSOF 


—— Ore © 8 8 


1 

mSG4 
MSG 
“MSG 

i OPTION 1: 

' 

‘WRITE COMMAND : 
'ERRDF(101,MSG1,0); !*#*#* OPTION 1 ERROR 01 *#+e 
‘ERRDF(102,MSG1,0); '##e* OPTION 1 ERROR 02 *#ee 

103,MSG1,0); is#** OPTION 1 ERROR 03 eee# 


'CHECK OR READ: 


'ERRDF ( 


'ERRDF(104,MSG1,0); !*#** OPTION 1 ERROR 04 «eee 
‘ERRDF(105.MSG1.0):  ieeee OPTION 1 ERROR 05 eeee 
VERRDF(106,MSG1.0);  ‘#ee* OPTION 1 ERROR 06 *te 
\ERRDF(107.MSG1,0): ‘eee OPTION 1 ERROR O07 eee 
\ERRDF(108.MSG2,0):  ieeee OPTION 1 ERROR 08 eee 
\ERRHRD(109,MSG4,0); ‘#ee® OPTION 1 ERROR 09 «eee 
‘ERRSOFT(110,MSG$,0); isee® OPTION 1 ERROR 10 eee 
iERRSOFT(111.MSG3.0): ‘*ee* OPTION 1 ERROR 11 eee 
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1 
| OPTION 2: 


!WRITE COMMAND : 


‘ERRDF (201,MSG1,0); ‘eeee OPTION 2 ERROR 01 *tt* 
‘ERRDF (202 ,MSG1,0); ‘eee OPTION 2 ERROR 02 *tt* 
'ERRDF (203,MSG1,0); {eens OPTION 2 ERROR 05 *et* 


'CHECK OR READ: 


'ERRDF (204,MSG1,0); teeee OPT] 
'ERRDF (205 ,.MSG1,0); teeee OPT] 


- ERROR 04 tee 
'ERRDF(206,MSG1,0); = | ##® ae 

0 

0 


2 

2 ERROR 05 eee 

2 ERROR 06 eeee 
‘ERRDF(207,MSG1_0):;  ‘#ee* OPTION 2 ERROR 07 eee 
\ERRDF(208,MSG2,0);  ‘®ee® OPTION 2 
0}; ixeee OPTION 2 
(\ERRSOFT(210,MSG3,0); ‘#®e® OPTION 2 
(ERRSOFT(211.MSG3,1); i#*e* OPTION 2 


'LOOP CHECK OR READ: 


ERROR 08 eee 
ERROR 09 eee 
ERROR 10 *** 
ERROR 10 *e** 


\ERRDF(212,MSG1,0); !*#** OPTION 2 ERROR 12 *ee 
\ERRDF(213,.MSG1.0):  ‘#e* OPTION 2 ERROR 13 eee 
\ERRDF(214.MSG1.0):  !ee® OPTION 2 ERROR 14 tte 
\ERRDF(215.MSG1.0); ‘eee OPTION 2 ERROR 15 tee 
\ERRDF(216.MSG2.0);  isee® OPTION 2 ERROR 16 eee 
‘ERRHRD(217,MSG4,0); i#eee OPTION 2 ERROR 17 eee 

1(218,MSG8,0); ieee OPTION 2 ERROR 18 tee 

1(219.MSG3.0): ‘#e** OPTION 2 ERROR 19 eee 


OPTION 3: 


!WRITE COMMAND: 


'ERRDF (301,MSG1,0); !eeee OPTION 3 ERROR 01 **** 
'ERRDF (302,MSG1,0); 'eeee OPTIO ERROR Oc **t* 
'ERRDF (303,MSG1,0); {eee OPTIO ERROR 03 **t* 


'CHECK OR READ: 


'ERRDF(304,MSG1,0); !**** OPTION 
'ERRDF(305,MSG1,0); !**** OPTION 
'ERRDF(306,MSG1,0); !**** OPTION 
'ERRDF(307,MSG1,0); !eeee od 
10N 
ION 
ION 


z2 
Ww 


3 FRROR 04 sete 
3 ERROR 05 eeee 
3 ERROR 06 eeee 
3 ERROR 07 eeee 
iERRDF(308.MSG2.0): ieee OPTION 3 ERROR 08 tee 
\ERRHRD(309,MSG4,0); ‘eeee OPTION 3 
\ERRSOFT(310,MSG3,0); ‘##e* OPTION 3 
iERRSOFT(311.MSG3,0): i#ee® OPTION 3 


ERROR 09 eete 
ERROR 10 tet 
ERROR 11 tet 


i‘ ERRSOF 
iERRSOF 
| 

| 

= * 


- -—_ — ——— 
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OPTION 4: 


'MARCHING UP: 
'WRITE DATA: 
'ERRDF (401,MSG1,0); !eeee OPT ERROR 


ION 4 01 
'ERRDF (402,MSG1,0); 'eeee OPTION 4 ERROR 02 *te¥+ 
'ERRDF (403,MSG1,0); !eeee OPTION 4 ERROR 03 


!MARCHING UP: 
'CHECK OR READ DATA: 


'ERRDF(404,MSG1,0);  !*#*® OPTION 4 
'ERRDF(405,MSG1,0);  ‘#e® OPTION 4 
‘ERRDF(406,MSG1,0); ‘eee OPTION 4 
‘ERRDF(407,MSG1,0); ‘ee OPTION 4 
‘ERRDF(40B,MSG2,0):  ‘##e* OPTION 4 ERROR 08 tee 
\ERRHRD(409,MSG6,0); i#ee® OPTION 4 
\ERRSOFT(410,MSG3,0); itee* OPTION 4 
\ERRSOFT(411.MSG3.0): i*#e* OPTION 4 


!WRITE COMP: 
'ERRDF (412,MSG1,0); ‘eee OPTION 4 ERROR 12 
'ERRDF (413,MSG1,0); ‘eee OPTION 4 ERROR 13 *#¥* 
'ERRDF (414,MSG1,0); {eee OPTION 4 ERROR 14 
'MARCHING DOWN: 


'CHECK OR READ COMP: 


'ERRDF(415,MSG1,0); !*** OPTION 4 ERROR 15 tee 
\ERRDF(416.MSG1.0): ieee OPTION 4 ERROR 16 tee 
\ERRDF(417.MSG1.0):  isee® OPTION 4 ERROR 17 eee 
iERRDF(418.MSG1.0): ie OPTION 4 ERROR 18 eee 
\ERRDF(419,MSG2,0):  isee* OPTION 4 ERROR 19 eee 
\ERRHRD(420,MSG4,0); ‘sees OPTION 4 ERROR 20 eee 
\ERRSOFT(421,MSG$,0); ‘#e#® OPTION 4 ERROR 21 ete 
\ERRSOFT(422.MSG3,0): i#eee OPTION 4 ERROR 22 tee 
WRITE DATA: 
'ERRDF(423,MSG1,0);  !#ee* OPTION 4 ERROR 23 eee 
\ERRDF(424.MSG1.0):  ‘#eee OPTION 4 ERROR 24 tee 
ERRDF(425.MSG1.0):  ‘tee* OPTION 4 ERROR 25 *tee 


Qeliee ore 8 GOLA 


r ee — 
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CHECK OR READ DATA: 
‘ERRDF (426,MSG1, 0); 


iERRDF (430,MSG2,0): 

iERRHRD (431 ,MSG4,0); 
iERRSOFT(432,MSG3,0); 
i ERRSOFT(433.MSG3,0): 


'eene 
'anee 
'eewe 
‘anew 
'aeee 
ineve 
igeee 
iewee 


PAGE bs : 


OPTION 4 ERROR 26 #te* 
OPTION 4 ERROR 27 eee# 
OPTION 4 ERROR 28 eee2 
OPTION 4 ERROR 29 ete* 
OPTION 4 ERROR 30 eee2 
OPTION 4 ERROR 31 eee 
OPTION 4 ERROR 32 eee 
OPTION 4 ERROR 335 eee 


! 
OPTION 5: 
'"RAND1" ROUTINE: 
‘WRITE COMMAND: 
'ERRDF (5101,MSG61,0); 'eeee OPTION 5, 
'ERRDF (5102,MSG1,0); 'eeee OPTION 5, 
'ERRDF (5103,MSG1,0); teens OPTION 5 


iCHECK OR READ: 


'ERRDF(5104,MSG1,0);  !**** OPTION S, 
\ERRDF(5105.MSG1.0): ieee OPTION 5. 
\ERRDF(5106.MSG1.0): ieee OPTION 5, 
\ERRDF(5107.MSG1.0): ieee OPTION 5, 
iERRDF (5108. MSG2, {23 :  leeee OPTION 5, 
iERRHRD(5109,MSG4 ieee OPTION 5. 
\ERRSOFT(5110, mses. 05; iveee OPTION 5; 
\ERRSOFT(5111.MSG3,0): ‘#**s OPTION 5. 
'*RAND2" ROUTINE: 
‘WRITE COMMAND: 
'ERRDF(5201,MSG1,0);  !**** OPTION 5, 


52 
‘ERRDF (5202,MSG1 10); ‘wees OPTION 5, 
'ERRDF(5203,MSG1,0); !*ee* OPTION 5 


'CHECK OR READ: 


RAND1 ERROR 01 


RAND1 ERROR 
RAND1 ERROR 


RAND1 ERROR 
RAND1 ERROR 
RAND1 ERROR 
RAND1 ERROR 
RAND1 ERROR 
RAND1 ERROR 
RAND1 ERROR 
RAND1 ERROR 


RAND2 ERROR 
RAND2 ERROR 
RAND2 ERROR 


‘ERRDF(5204,MSG1,0); !*#** OPTION 5, RAND2 ERROR 
ERRDF(5205.MSG1.0): ite OPTION 5. RAND2 ERROR 
ERRDF (5206,.MSG1,0): ‘eee OPTION 5, RAND2 ERROR 
iERRDF(5207.MSG1.0): ise OPTION 5, RAND2 ERROR 
'ERRDF (5208 ,MSG2,0); ieee OPTION 5, RAND2 ERROR 
\ERRHRD(5209,MSG4,0); ieee OPTION 5. RAND2 ERROR 
\ERRSOFT(5210,MSG3,0); ‘##ee OPTION 5. RAND2 ERROR 
iERRSOFT(5211.MSG3,0): i##ee OPTION 5. RAND2 ERROR 


SEQ 0024 


ee —— eS : — a = a ane ee 
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| !*RAND3" ROUTINE: 

| (WRITE COMMAND : 

| ‘ERRDF(5301,MSG1,0);  !###* OPTION 5, RAND3 ERROR 01 eee 


(53 01 
iERRDF(5302.MSG1,0); ieee OPTION 5, RAND3 ERROR 02 teee 
‘ERRDF(5303,MSG1,0); ieee OPTION 5, RAND3 ERROR 03 eeee 


'CHECK OR READ: 


'ERRDF(5304,MSG1,0); !*** OPTION 5, RAND3 ERROR 04 tee 
iERRDF (5305 “M361 0); inet OPTION 5. RAND3 ERROR 05 tee 
\ERRDF(5306,MSG1.0): ‘ees OPTION 5, RAND3 ERROR 06 teee 
'ERRDF (5307,MSG1,0); '‘eeee OPTION 5, RANDS ERROR 07 #200 
\ERRDF(5308.MSG2.0): ieee OPTION 5, RAND3 ERROR 08 teee 
\ERRHRD(5309,MSG4,0); ieee OPTION 5. RAND3 ERROR 09 #eee 
\ERRSOFT(5310,MSG$,0); i#ee® OPTION 5. RAND3 ERROR 10 teee 
VERRSOFT(5311.MSG3.0): ieee OPTION 5. RAND3 ERROR 11 #eee 


'*RAND4* ROUTINE: 
!WRITE COMMAND : 


'ERRDF(5401,MSG1,0);  !*#e OPTION 5, 01 eee 
'ERRDF (5402 ,MSG1 :0); 'eaee OPTION 5, RANDS ERROR 02 *et* 
‘ERRDF(5403,MSG1,0); ise OPTION 5 03 xeee 


'CHECK OR READ: 


'ERRDF(5404,MSG1,0);  !**e* OPTION 
‘ERRDF(5405,MSG1,0); |*ee OPTION 
‘ERRDF(5406,MSG1,0); !#ee* OPTION 
‘ERRDF(5407,MSG1,0); .**** OPTION 


5, RAND4 ERROR 04 see« 

3 
VERRDF (5408,MSG2/0);  iweee OPTION 

3 


, RANDG ERROR 05 *ee* 
, RAND4 ERROR 06 *te* 
~ RAND4 ERROR 07 #22 
~ RAND4 ERROR 08 *ee* 
, RANDG ERROR 09 tee 
, RAND4 ERROR 10 #42 
» RAND4 ERROR 11 *#e* 


‘ERRHRD(5409,MSG4,0); ieee OPTION 
\ERRSOFT(5410,MSG8, 03; iteee OPTION 
\ERRSOFT(5411.MSG3.0): i#*#* OPTION 


: 
Re 
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4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH A 
SUMMARY WHICH SHOWS THE DIAGNOSTIC'S PERFORMANCE SINCE IT WAS 
STARTED. THE SAME PROGRESS 9 tt} CAN BE OBTAINED BY STOPPING 
THE PROGRAM'S EXECUTION (VIA A “C) AND BY ISSUING THE ‘PRINT’ 
COMMAND. A TYPICAL REPORT FOR 2° DRIVES IS SHOWN BELOW: 
PERFORMANCE SUMMARY 


NUMBER OF ae anit arg 


ES READ 
1145 MBYTES WRITE CHECKED 


LOGICAL UNIT: 0 a 1 SERIAL #: 1234 
ag I COUN 9 


"5 
HARD Be COUNT: 11 
ARR Q: 6 
ARRAY 10: 2 
ARRAY 15: 3 
TRANSFER RETRIES: 0 


LOGICAL UNIT: 1 DRIVE: 1 SERIAL #: 9876 
DRIVE DROPPED (CONTROLLER FATAL ERROR) 
— Ray F COUN ~ 100 


annAY 13: 10 --> RUN ML11 PROM MAINTENANCE PROGRAM 
ARRAY 15: 80 --> RUN ML11 PROM MAINTENANCE PROGRAM 
OUNT: 2 


ARRAY 15: 1 
TRANSFER RETRIES: 0 


5.0 DEVICE INFORMATION TABLES 


Al THE START OF THE PROGRAM, AN AUTOMATIC CHECK OF THE SYSTEM 
CONFIGURATION IS MADE AND DEVICE ‘pein: SIMILAR TO THE 
FOLLOWING IS PRINTED FOR EACH UNIT 


LOGICAL UNIT: 0 DRIVE: 0 SERIAL #: 1234 
ML11~-A SECTORS UNDER TEST: 000000 TO 017777 
TRANSFER RATE: 1 MBYTES/SECOND CSR ADDRESS: 176400 


6.0 TEST SUMMARIES 


THERE IS JUST ONE HARDWARE TEST IN THE EXERCISER, AND ITS PURPOSE 
1S TO ACT AS A SCHEDULER TO CALL THE SUBROUTINES WHICH ACTUALLY 
PERFORM ALL OF THE TEST CODE. THE SUBROUTINES, CALLED OPTIONS, ARE 
DESCRIBED BELOW: 


SEQ 0026 


wo re --_——- — ——_ —_- —_—_ ——- —— SS —_——— 
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6.1 OPTION 1 (OPT1) 


PURPOSE : TO CHECK ADDRESSES USING DATA = SECTOR NUMBER. 
TRANSFERS ARE 4K WORDS IN LENGTH, AND ALL SECTORS 
ARE TESTED. 


THE CODE FOR ‘OPT1" IN BRIEF: 


BEGIN 1 (START OF ROUTINE) 
SAY ROUTINE IS RUNNING 

INCR COMPLEMENT FLAG FROM 0 TO 1 

: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 
: INCR LOGICAL UNIT FROM 0 TO LAST 

: . Soe 3 (START OF LOGICAL UNIT SELECTION LOOP) 


TEST LOOP : 
: : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS ONE UNIT) 
Drd THEN IS ACTIVE 


: : : + BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
: : INITIALIZE WRITE AND READ BUFFER POINTERS 
: : SECTOR = LOWEST 

ore WHILE SECTOR LEQ HIGHEST DO 

>: : : : : BEGIN 6  apraie OF SECTOR SELECTION LOOP) 


: : : : : GENERATE THE PATTERN 
e842 ser 4 BUFFER POINTERS BEFORE TRANSFER 


: : : 2: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : : CHOOSE WHETHER TO WRITE CHECK OR READ 


| R READ 
: : : 2: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP? 
: : : ¢ : CHANGE BUFFER POINTERS AFTER TRANSFER 
: : : : : UPDATE SECTOR NUMBER BY NUMBER OF ene IN PREVIOUS TRANSFER 
Pbpb END i (END OF SECTOR SELECTION LOOP) 
: END 5 (END CF TEST FOR AN ACTIVE UNIT) 
a : END 4 (END OF TESTLOOP) 
: END 3_ (END OF LOGICAL UNIT SELECTION LOOP) 
: END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 


RE TURN 
END 1 (END OF ROUTINE) 


rc —-— Ss = - — _ - - --—- -_ —— —_ 
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6.2 OPTION 2 (OPT2) 


PURPOSE : TO CHECK ON DATA RELIABILITY USING THE PATTERNS FROM 
THE PATTERN TABLE. 


THE CODE FOR ‘OPT2' IN BRIEF: 
BEGIN 1 (START OF ROUTINE) 


R TO (2*MAX) 
: BEGIN 2 (START OF PATTERN SELECTION LOOP) 
: CENERATE THE PATTERN 
: — LUN FROM 0 TO LAST 
: : TESTLoOs (START OF t OGICAL UNIT SELECTION LOOP) 
: : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
ft IF UNIT IS ACTIVE 


THEN 
: : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
ft Hay THE WRITE AND READ BUFFER POINTERS 
: : : SECTOR = LOWEST 
: : : : WHILE SECTOR LEQ HIGHEST DO 
: : : : : BEGIN 6 apes OF SECTOR SELECTION LOOP) 


GET_WRDCN 
: : 2 2 2 SETUP BUFFER POINTERS BEFORE TRANSFER 


>» *£ + & *& 
a. - @ 2 SB 


WRI 
: : : : : LOOK FOR ERRORS (IF DROP UNIT, oO TESTLOOP) 
teres. CHOOSE WHETHER TO WRITE CHECK OR READ 
: : : : : DO THE WRITE CHECK OR READ 
: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : : CHANGE BUFFER POINTERS AFTER TRANSFER 
: : : : : UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
popggs END 6 (END OF SECTOR SELECTION LOOP) 
3: 8 END 5 (END OF TEST FOR AN ACTIVE UNIT) 
: : END 4 (END OF TESTLOOP) 
: E ND 3 (END OF LOGICAL UNIT SELECTION LOOP) 
: IF NOT THE QUICK VERIFY PASS THEN ‘LOOP READ* (DESCRIBED BELOW) 
END 2 (END OF PATTERN SELECTION LOOP) 


RETURN 
END 1 (END OF ROUTINE) 


a 
| 
| 
| 
| 


SEQ 0028 
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THE "LOOP READ* CODE IN BRIEF: 


BEGIN 11 (START OF LOOP READING SECTION) 

INCR LUN FROM 0 TO LAST 
: BEGIN ong (START OF LOGICAL UNIT SELECTION LOOP) 

: : BEGIN 13 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

: IF UNIT IS ACTIVE 


HEN 
: : : BEGIN 14 (START OF TEST FOR AN ACTIVE UNIT) 
238 INITIALIZE THE a AND READ BUFFER POINTERS 
: : : SECTOR = LOWEST 
23 WHILE SECTOR LEQ HIGHEST.DO 
: : : BEGIN 15 aes: OF SECTOR SELECTION LOOP) 


: oto: GET -WROC 
: : : : SET UP BUFFER POINTERS BEFORE TRANSFER 
: : : : CHOOSE WHETHER TO WRITE CHECK OR READ 
: : : : INCR KOUNT FROM 1 TO TIMES 
a ge 16 (START OF COUNTING LOOP FOR LOOP READING) 
: : : : : DO THE WRITE CHECK OR READ 
: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP2) 
> : : : : END 16 (END OF COUNTING a. FOR LOOP READING) 
: : : : CHANGE BUFFER POINTERS oi A ANSFER 
: : : UPDATE SECTOR NUMBER BY 1 SECTORS MA PREVIOUS TRANSFER 
tik END 15 (END OF aT sen SELECTION LOOP) 
: : END 14 (END OF TEST FOR AN ACTIVE UNIT) 
: END 13. (END OF TESTLOOP2) 
EN D 12 (END OF LOGICAL UNIT apr aes LOOP) 
END 11 (END OF LOOP READING SECTION) 


SEQ 0029 
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6.3 OPTION 3 (OPTS). 
PURPOSE : TO DC A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS. 
THE CODE FOR ‘OPT3* IN BRIEF: 


BEGIN 1 (START - ROUTINE) 
SAY ROUTINE IS RUNNING 
INCR COMPLEMENT FLAG FROM 0 TO 1 
: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 
: GENERATE THE PATTERN 
: i \.UN_FROM 0 TO LAST 
: : TESTLOOP 3 (START OF TOGICAL UNIT SELECTION LOOP) 


2 TLOOP: 
: : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
_ THEN UNIT IS ACTIVE 


HEN 
: : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
3 INITIALIZE THE WRITE AND READ BUFFER POINTERS 
: : : : SECTOR = LOWEST 
: : : ¢ WHILE SECTOR LEQ HIGHEST DO 
: : : t : BEGIN 6 (START OF SECTOR SELECTION LOOP) 


T_WRDCNT 
Dbrid SET" uP BUFFER POINTERS BEFORE TRANSFER 


: : : t : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : + : : CHOOSE WHETHER TO WRITE CHECK OR READ 

: : : : : DO THE WRITE CHECK OR READ 

: : 2: 2 : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : 2: : CHANGE BUFFER POINTERS AFTER TRANSFER 

: : : : + UPDATE SECTOR NUMBER BY NUMBER OF secrene IN PREVIOUS TRANSFER 
: : : : : END 6 CEND OF SECTOR SELECTION LOOP) 

: : : : END 5 CEND OF TEST FOR AN ACTIVE UNIT) 

: : : END 4 (END OF TESTLOOP) 

: : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 


RE TURN 
END 1 (END OF ROUTINE) 


—_.£,. sss 


a 


r- 
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6.4 OPTION 4 (OPT4) 


PURPOSE : TO LOOK FOR > eh BETWEEN SECTORS 
USING A MARCH TEST. 


THE CODE FOR ‘OPT4" IN BRIEF: 


BEGIN 1 (START OF ROUTINE) 

SAY ROUTINE IS RUNNING 

WORD COUNT = 256 

GENERATE A BUFFER OF DATA 

GENERATE A BUFFER OF COMP 

INITIALIZE POINTERS TO 4 BUFFERS FOR WRITE/READ DATA/COMP 
INCR LUN FROM 0 TO LAST 

: BEGIN 2 (START OF TOGICAL UNIT SELECTION LOOP) 

: TESTLOOP: 

: : BEGIN 3 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
.. th UNIT IS ACTIVE 


| 
| 
EN 
: : : BEGIN 4 (START OF TEST FOR AN ACTIVE UNIT) 
tot INCR SECTOR FROM LOWEST TO HIGHEST 
: : 2 ¢ BEGIN 4A (START OF 1ST SECTOR SELECTION LOOP) 
oe WRITE ‘DATA’ 
: : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : END 4A (END OF 1ST SFCTOR SELECTION LOOP) 
: : : CHOOSE WHETHER TO WRITE CHECK OR READ ‘DATA’ 
: : INCR SECTOR FROM LOWEST TO HIGHEST 
7s = BEGIN 4B (START OF 2ND SECTOR SELECTION LOOP) 
: : : : DO THE WRITE CHECK OR READ OF ‘DAT 
: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : WRITE ‘COMP' 
: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : END 4B (END OF 2ND SECTOR SELECTION LOOP) 
: : : CHOOSE WHETHER TO WRITE CHECK OR READ ‘COMP’ 
: :  DECR SECTOR FROM HIGHEST TO LOWEST 
: : BEGIN 4C (START OF 3RD SECTOR SELECTION LOOP) 
: DO THE WRITE CHECK OR READ OF ‘COMP’ 
: +: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : WRITE DATA 
: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : END 4C (END OF 3RD SECTOR SELECTION LOOP) 
: : : CHOOSE WHETHER TO WRITE CHECK OR READ ‘DATA’ 
: : INCR SECTOR FROM LOWEST TO HIGHEST 
: BEGIN 4D (START OF 4TH SECTOR SELECTION LOOP) 
: : DO THE WRITE CHECK OR READ OF 'D 
: ; LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : END 4D (END OF 4TH SECTOR SELECTION LOOP) 
tt END 4 (END OF TEST FOR AN ACTIVE UNIT) 
: : END 3 (END OF TESTLOOP) 
| : END 2 (END OF LOGICAL UNIT SELECTION LOOP) 
t 


RE TURN 
END 1 (END OF ROUTINE) 


3 


SEQ 0031 
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6.5 OPTION 5 (OPTS) 


PURPOSE : TO EXERCISE THE ML11 SYSTEMS UNDER TEST IN A RANDOM 
MANNER, SO AS TO SIMULATE THE FLEXIBILITY OF TESTING 
THAT WOULD BE DONE BY AN OPERATING SYSTEM. 


THERE ARE 4 RANDOM TESTS WHICH ARE CALLED BY ‘OPTS’ 
TO ACCOMPLISH ALL TESTING. IT IS THE 1 Wt ee cat 
OF THIS ROUTINE TO DECIDE HOW MANY TIMES THOSE 4 
RANDOM TESTS WILL BE EXECUTED. REFER 7 *RAND1' TO 
*RAND4’ BELOW FOR MORE INFORMATION. 


6.5.1 RAND1 ROUTINE 
PURPOSE : TO TEST USING RANDOM DATA 
THE CODE FOR "RAND1" IN BRIEF: 


| BEGIN 1 (START OF ROUTINE) 
SAY ROUTINE IS RUNNING 
INCR COUNT FROM 1 TO REPEAT 
: BEGIN 2 (START OF REPEAT _ FOR THE ROUTINE) 
: GENERATE THE RANDOM PATTERN 
: ~— LUN_FROM 0 TO LAST 
: 4 (START OF TOGICAL UNIT SELECTION LOOP) 
: : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
: IF UNIT IS ACTIVE 
HEN 
| 
| 
| 


: : THE 
: : : + BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
: : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 
: : SECTOR = LOWEST 
: : : : WHILE SECTOR LEQ HIGHEST DO 
: : : : : BEGIN 6 (START OF SECTOR SELECTION LOOP) 
: : 2 2 : GET_WRDCNT 
ra eee ie BUFFER POINTERS BEFORE TRANSFER 


E 
: : t ¢ ¢ LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : + CHOOSE WHETHER TO WRITE CHECK OR READ 
: : : : : DO THE WRITE CHECK OR READ 
: : : t : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : ¢ CHANGE BUFFER POINTERS AFTER TRANSFER 
: : : : + UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
: : : 2: : END 6 CEND OF SECTOR SELECTION LOOP) 
: : : + END 5 (END OF TEST FOR AN ACTIVE UNIT) 
: : : END 4 (END OF TESTLOOP) 
: : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 
: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 


RE TURN 
END 1 (END OF ROUTINE) 
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6.5.2 RAND2 ROUTINE 
PURPOSE : TO TEST USING RANDOM DATA AND WORD COUNTS 
THE CODE FOR ‘*RAND2" IN BRIEF: 


BEGIN 1 (START OF ROUTINE) 
SAY ROUTINE IS oa: 


OM 1 TO REPEAT 
| : BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE) 
| : INCR LUN FROM 0 TO LAST 
| : : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

: : GENERATE THE RANDOM PATTERN 

: + TESTLOOP: 

: : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
: : : IF UNIT IS ACTIVE 


THEN 
: : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

233 ; SECTOR = LOWEST 

: : : t INITIALIZE THE WRITE AND READ BUFFER POINTERS 

: : : : WHILE SECTOR LEQ HIGHEST 

: : t : : BEGIN . (START OF A PASS THROUGH ALL SECTORS) 

: : : : : CHOOSE A RANDOM WORD COUNT 

: : : : : SET UP BUFFER POINTERS BEFORE TRANSFER 

: : : : : CALCULATE NEXT STARTING SECTOR (BASED ON WORD COUNT) 

: : : 2 : IF NEXT STARTING SECTOR GTR HIGHEST 

: : : 2: 2 2 THEN ADJUST THE WORD COUNT AND NEXT SECTOR SO THEY FIT 
ie. Bods a WITHIN THE TESTABLE SECTOR LIMITS 
| 
| 


WRITE 

: : : 2 : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : ¢ CHOOSE WHETHER TO WRITE CHECK OR READ 
: : : 3: : DO THE WRITE CHECK OR READ 
: : : 2: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : 2 2 SECTOR = THE CALCULATED NEXT STARTING SECTOR 
: : : 2 2 CHANGE BUFFER POINTERS AFTER TRANSFER 
: : : 2 : END 6 (END OF A PASS THROUGH ALL SECTORS) 
: : : : END 5 (END OF TEST FOR AN ACTIVE UNIT) 
: : : END 4 (END TESTLOOP) 
: : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 


RETURN 
END 1 (END OF ROUTINE) 


——-_@— 
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6.5.3 RAND3 ROUTINE 
PURPOSE : TO TEST USING RANDOM DATA, WORD COUNTS AND SECTORS 
THE CODE FOR ‘RAND3" IN BRIEF: 
BEGIN 1 (START OF ROUTINE) 


OM REPEAT 

: BEGIN 2 (START OF REPEAT _ FOR THIS ROUTINE) 
: GENERATE THE RANDOM PATTERN 

: INCR \.UN_FROM 0 TO LAST 

: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

tot eenatee BUFFER POINTERS 


2 3 STL H 
: : : BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
233 THEN IS ACTIVE 


| 
: : BEGIN 5 (START OF TEST Aa AN ACTIVE UNIT) 
ft TIMES = (HIGHEST = LOWEST)/2 + 1 
: : : : INCR KOUNT FROM 1 TO TIMES 
: : : : : BEGIN 6 (START OF Cage thee LOOP FOR SECTOR SELECTION) 
: : : : : CHOOSE A RANDOM WORD COUN 
: : to: : SET UP BUFFER POINTERS PEF ORE TRANSFER 
: : : : : CHOOSE A RANDOM SECTOR 
: : : : : CALCULATE WHERE TRANSFER WILL hs (BASED ON WORD COUNT) 
: : 2: : 2 IF CALCULATED VALUE hag ag 
: : : 2: : : THEN ADJUST THE WORD C T SO IT FITS 
K+ O02 2 : : WITHIN THE TESTABLE SECTOR LIMITS 
| 
| 
| 


WRITE 
: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE LABEL) 
: : : : + CHOOSE WHETHER TO WRITE CHECK OR READ 
: : : : : DO THE WRITE CHECK OR READ 
: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE LABEL) 
: : : : : CHANGE BUFFER POINTERS AFTER TRANSFER 
: : : : : END 6 CEND OF COUNTING LOOP FOR SECTOR SELECTION) 
: : : : END 5 (END OF TEST FOR AN ACTIVE UNIT) 
: : END 4 (END OF TESTLOOP) 
: : END D 3 (END OF LOGICAL UNIT SELECTION LOOP) 
END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 


RETURN 
END 1 (END OF ROUTINE) 


SEQ 0034 
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6.5.4 RAND4 ROUTINE 
PURPOSE : TO TEST USING RANDOM DATA, WORD COUNTS, SECTORS 
AND UNITS 


THE CODE FOR "RANDG’ IN BRIEF: 


BEGIN 1 (START +f ROUTINE) 
SAY ROUTINE IS RUNNING 
INCR COUNT FROM 1 TO REPEAT 
: BEGIN 2 (START OF REPEAT “? FOR THIS ROUTINE) 
: GENERATE THE RANDOM PATTERN 


: ES 
: : BEGIN 3 (START OF COUNTING LOOP FOR UNIT SELECTION) 
: : CHOOSE A RANDOM LOGICAL UNIT WHICH IS ACTIVE 
: : INITIALIZE BUFFER POINTERS 
: 3 TESTLOOP : 
: : : BEGIN 4 (START OF -¥ THAT COMPLETELY TESTS 1 UNIT) 
2 3 INCR KOUNT2 FROM 1 TO 10 
: : : : BEGIN 5 (START OF egetbee LOOP FOR SECTOR SELECTION) 
ees CHOOSE A RANDOM WORD COUN 
: : : : SET UP BUFFER POINTERS UE FORE TRANSFER 
: : : : CHOOSE A RANDOM SECTOR 
: : : CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT) 
: : : : IF CALCULATED VALUE GTR HIGHEST 
: : : : + THEN ADJUST THE WORD COUNT SO IT FITS 
sear + WITHIN THE TESTABLE SECTOR LIMITS 


E 
: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : CHOOSE WHETHER TO WRITE CHECK OR READ 

: : DO THE WRITE CHECK OR READ 
: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

2 CHANGE BUFFER POINTERS AFTER TRANSFER 
2 3 END 5 (END OF COUNTING LOOP FOR SECTOR SELECTION) 
a : END 4 (END OF TESTLOOP) 
: END 3 (END OF COUNTING LOOP FOR UNIT SELECTION) 
END 2 (END OF REPEAT LOOP FOR THIS ROUTINE 


RETURN 
END 1 (END OF ROUTINE) 


SEQ 0035 
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\PROGRAM HEADER AND TABLES SEQ 0036 
| 33 .SBTTL PROGRAM HEADER AND TABLES 
| 4 002000 . = 2000 
39 BGNMOD 
40 
41 p++ 
42 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
ct ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
45 
46 POINTER ALL 
47 
64 
65 HEADER (CZMLB,A,0,1800.,1 
LSNAME:: 
103 ASCII /C/ 
132 ASCII /2/ 
115 ASCII /M/ 
114 ASCII /L/ 
102 ASCII /B/ 
000 -BYTE 0O 
000 -BYTE 0O 
000 -BYTE 0O 
LSREV:: 
101 ASCII /A/ 
LSDEPO:: 
060 ASCII /0/ 
LSUNIT:: 
000000 -WORD TSPTHV 
LSTIML:: 
003410 -WORD 1800. 
LSHPCP:: 
002264 -WORD LS$HARD 
LSSPCP:: 
002440 -WORD LS$SOFT 
LSHPTP:: 
002210 -WORD LSHW 
LSSPTP:: 
002222 -WORD L$SW 
LSLADP: : 
075012 WORD LSLAST 
LSSTA:: 
000000 ' -WORD O 
L$CO:: 
000000 «WORD O 
LSDTYP:: 
000001 -WORD 1 
LSAPT:: 
000000 -WORD O 
LSOTP:: 
002204 -WORD LSDISPATCH 
LSPRIO:: 
000000 «WORD 0 
LSENVI:: 


000000 -WORD 0 





--- --— _Saae 
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| 000000 


000000 
002122 
005362 
000000 
000000 
005549 
005526 
000000 
002130 
104035 
002172 
036004 
074776 
005374 
004014 
000000 
000000 
000000 


115 114 


061 
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NAMES OF DEVICES SUPPORTED BY THIS PROGRAM 


DEVTYP <ML11> 


LSEXP1: 
LSMREV: 


LSEF:: 


LSSPC:: 


LSDEVP: : 
LSREPP:: 
LSEXP4:: 
LSEXPS5:: 


LSAUT:: 
LSDUT:: 
LSLUN:: 


LSDESP:: 
LSLOAD:: 


LSETP:: 
LSICP:: 
LSCCP:: 
LSACP: : 


LS$PRT:: 
LSTEST:: 


LSOLY:: 


LSHIME:: 


LSDVTYP:: 


SEQ 0037 


LSDVTYP 
LSRPT 

0 

0 

LS$AU 
L$DU 

0 
LSDESC 
ESLOAD 
LSERRTBL 
LSINIT 
LS$CLEAN 
LSAUTO 
LSPROT 
0 

0 

0 


/ML11/ 
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j 
eng HEADER AND TABLES SEQ 0038 
82 3 
| 83 : TEST DESCRIPTION 
85 DESCRIPT <CZMLB ML11 PERFORMANCE EXERCISER> ceoeie 
103 132 115 ASCIT /CZMLB ML11 PERFORMANCE EXER 
86 
87 
39 
| 90 : THE GLOBAL ERROR TABLE (INFORMATION 
3} ; USED IN A CALL TO THE MACRO ‘‘ERROR'') 
93 
94 ERRTBL 
LSERRTBL:: 
000000 ERRTYP:: -WORD 0 
000000 ERRNBR: : WORD 0 
000000 ERRMSG:: -WORD 0 
ERRBLK: : WORD 0 
95 
96 34+ 
97 : THE DISPATCH TABLE CONTAINS THE STARTING ADDRES OF EACH TEST. 
* ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
100 
101 DISPATCH 1 
000001 .WORD 1 
LSDISPATCH:: 
073024 -WORD 11 
102 
109 
110 see 
111 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
112 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
113 : IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
Hb 3 _AND 1S USED AS A "'TEMPLATE’’ FOR BUILDING THE P-TABLES. 
116 
117 BGNHW DFPTBL 
000004 «WORD 1L10000-L$HW/2? 
L$HW:: 
DFPTBL 
118 
128 
129 176400 .WORD 176400 :CSR ADDRESS 
130 000204 WORD 204 sRH VECTOR ADDRESS 
131 000005 WORD 5 ‘BR LEVEL FOR INTERRUPT 
132 000000 WORD 0 *ML11 DRIVE NUMBER 
134 ENDHW 


L10000: 


N 3 
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PROGRAM HEADER AND TABLES SEQ 0039 
136 3++ 
137 3; THE DEFAULT SOFTWARE P-TABLE CONTAINS VARIOUS DATA USED BY THE 
138 ; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE SET 
139 ; UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR AT RUN 
140 3; TIME. 
141 = 
pe 
14 BGNSW SFPTBL 
000020 -WORD 110001-L$SW/2 
L$SwW:: 
SFPTBL:: 
000000 LIMIT:: .WORD 0 LIMIT wr's'st * 3 TO BE TESTED 
000000 RANGE:: .WORD 0 ;DOES rH} ry ed SECTOR NUMBERS? 
000000 LSECT:: .WwORD 0 ‘LOW SECTOR NUMBER 
000000 TSECT:: .WORD 0 ;TOP SECTOR NUMBER 
000000 ONLY:: .WORD 0 ‘ONLY BOARD TO TEST (BOARD #'S ARE 0 TO 15) 
000000 DROPNE:: .WORD 0 ;DROP ANY OPTIONS? 0 = NO 1 = YES 
000000 DROP1:: .WORD 0 ‘DROP OPTION #1? 0 = NO 1 = YES 
000000 DROP2:: .WORD 0 sDROP OPTION #2? 0 = NO 1 = YES 
000000 DROP3:: .WORD 0 sDROP OPTION #3? 0 = NO 1 = YES 
000000 DROP4:: .WORD 0 sDROP OPTION #4? 0 = NO 1 = YES 
000001 MARPAT:: .WORD 1 PATTERN NUMBER USED FOR MARCH TEST 
000000 DROPS:: .WORD 0 :DROP OPTION #5? 0 = NO 1 = YES 
000000 REFRESH::.WORD 0 ; ENABLE MARGINING? 0 = NO (LEAVE DISABLED) 
1 = YES (ENABLE IT) 
000000 ECCDIS:: .WORD 0 “DISABLE ECC? 0 = NO (LEAVE ENABLED) 
: 1 = YES (DISABLE IT) 


ae IMPORTANT NOTE teeeeneneee 
3; THE FOLLOWING 2 SOFTWARE PARAMETERS : 
: HAVE NON-STANDARD DEFAULTS. ERRORS ; 
: AND END OF PASS PERFORMANCE SUMMARY ; 
: REPORTS WILL ** NO T ** BE PRINTED : 
; UNLESS THE OPERATOR SPECIFICALLY : 
: REQUESTS THE PRINTOUTS VIA SUITABLE : 
; ANSWERS TO THE SOFTWARE QUESTIONS. : 

fi 


THIS OPERATING FEATURE WAS INCLUDED ; 
IN THE ML11 PERFORMANCE EXERCISER'S ; 
; FUNCTIONAL SPECIFICATION AT THE RE~ ; ; 


<b 6d bad Dab acababatiaatababababaiacadebael pabadabia taba aiid ch ch a6 ah ab bad af cb at bd 
OD ODO OW WW WWW WWW WINN NIN NN NNSA AAA AAAAAA MINN 
w CoS SR SRP SES SANS RAN VSSSAS ALES SSVSVLUNE 


: QUEST OF FIELD SERVIC . 
* eeeeeteeneeencerseeeeereeeerecereeee 
000000 EOPSUM:: .WORD 0 sENABLE EOP SUMMARIES? 0 : NO PRINTOUT 
000000 ERROUT:: .WORD 0 “ENABLE ERROR PRINTOUTS? : : NO PRINTOUT 
ENDSW ; 
110001: 


— 


ps a ne 


B 4 
tr PERFORMANCE EXERCISER MACRO M1113 24-OCT-80 09:59 PAGE 41 
‘PROGRAM HEADER AND TABLES 
29 
245 
246 
247 3+ 
248 : THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS | 
249 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P LES. 
250 ; MACROS ARE NOT EXECUTED AS MACHINE RNS TRUCTIONS BUT ARE 
251 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
252 ; MACROS ALLOW THE SUPERVISOR 10 ESTABLISH COMMUNICATIONS 
253 ; WITH THE OPERATOR. 
254 :-- 
255 
256 BGNHRD 
000022 «WORD L10002-LSHARD/2 
LSHARD:: 
257 
267 
268 
269 GPRMA  QH1,0,0,0,177777,YES 
000031 .WORD  TSCODE 
002330 .WORD QH1 
000000 ~WORD TSLOLIM 
177777 .WORD TSHILIM 
270 GPRMA QH2,2,0,0,377.,YES 
001031 .WORD TSCODE 
002345 -WORD QH2 
000 .WORD TSLOLIM 
000377 WORD TS$HILIM 
271 GPRMD QH3,4,0,7,1,7,YES 
002032 WORD  TSCODE 
002367 -WORD QH3 
000007 WORD 
000001 .WORD TSLOLIM 
7 .WORD TSHILIM 
272 GPRMD  QH4,6,0,7,0,7.,YES 
003032 .WORD  TSCODE 
002417 .WORD QH4 
000007 -WORD 7 
000000 -WORD TSLOLIM 
-_ 000007 WORD TSHILIM 
274 ENDHRD 
.EVEN 
L10002: 
275 
282 
283 103 123 122 QH1: .ASCIZ /CSR ADDRESS?/ 
284 111 116 124 QH2: .ASCIZ /INTERRUPT VECTOR?/ 
285 102 122 040 OH3: eASCIZ /BR LEVEL FOR INTERRUPT?/ 
286 104 122 111 QH4: -ASCIZ /DRIVE NUMBER?/ 
iu “ies 


So eerie poet aha. ek eee 


SEQ 0040 
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000103 


000130 
002646 
000001 


12 
025044 
3 


001130 

002713 

000001 
314 

014044 
315 

002032 


003000 

177777 

000000 

177777 
$16 


| 
| 
294 
295 
296 


317 


0 
007024 
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. 


5$: 


6$: 


+ 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW an W esctetgtince TO ESTABLISH COMMUNICATIONS 


; WITH THE OPERATO 


BGNSFT 


GPRML 


XFERF 
GPRML 


XFERF 


GPRMD 


GPRMD 


XFER 
GPRMD 


GPRML 


XFERT 


QS1,0,1,YES 


6$ 
AS2,2,1, YES 


5$ 


LSSOFT:: 


Q$3,4,0,177777,0,177777,YES 


Q54,6,0,177777,0,177777, YES 


6$ 


QS5,10,D,37,0,15..VES 


QS6,12,1, YES 


7$ 


-WORD L10003-L$SOFT/2 


TSCODE 
QS] 

1 
TSCODE 
TSCODE 
Qs2 

1 
TSCODE 
TSCODE 
Qs3 
177777 
TSLOLIM 
TSHILIM 


TSCODE 


QS4 
177777 


TSLOLIM 
TSHILIM 


TSCODE 


TSCODE 
Qs5 


37 
TSLOLIM 
TSHILIM 


TSCODE 
QS6 


TSCODE 


SEQ 0041 


_ 


‘ML11 PERFORMANCE EXERCISER 
‘PROGRAM HEADER AND TABLES 


330 


331 
014130 
003633 
000001 
332 
015130 
003665 
000001 
333 


016130 
003717 
000001 


334 
017130 
003764 
000001 


a 
SES 


7$: 


12$: 


13$: 


GPRMD 


XFER 


GPRML 


GPRML 


GPRML 


GPRML 


XFERT 


GPRMD 


GPRML 


GPRML 


GPRMv 


GPRML 


GPRML 


ENDSFT 


— mite . 
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0$11,24,D,77,1,10.,YES 
13$ 

0$7,14,1,YES 
0$8,16,1,YES 
0$9,20,1,YES 
0$10,22,1, YES 

12$ 
0$11,24,D,77,1,10., YES 
0$12,26,1,YES 
0S13,30,1, YES 
0$14,32,1, YES 
0$15,34,1, YES 


0S516,36,1,YES 


.E 
L10003: 


VEN 


TSCODE 
Q$11 

77 
TSLOLIM 
TSHILIM 
TSCODE 
TSCODE 
Qs7 

1 
TSCODE 
Qs8 

1 
TSCODE 
Qs9 

1 
T$CODE 
Q$10 

1 
TSCODE 
TSCODE 
QS11 

77 
TSLOLIM 
TSHILIM 
TSCODE 
gste 


TSCODE 
a 


TSCODE 
es 


TSCODE 


TSCODE 
QS16 


SEQ 0042 


—E 4 
mut PERFORMANCE EXERCISER MACRO M1113 24-OCT-80 09:59 PAGE 44 
‘PROGRAM HEADER AND TABLES SEQ 0043 


| 
345 114 111 115 QS1: -ASCIZ /LIMIT RANGE of SECTORS TO BE TESTED?/ 
346 104 117 040 QS2: -ASCIZ /DO YOU KNOW THE EXACT nae y! OF SECTORS TO BE TESTED?/ 
347 106 111 122 QS3: -ASCIZ /FIRST SECTOR TO BE TESTED?/ 
| 348 114 101 123 QSé4: -ASCIZ /LAST SECTOR TO BE TESTED?/ 
349 127 110 111 QS5: -ASCIZ /WHICH BOARD {0-15} SHOULD , TESTED?/ 
350 124 110 105 QS6: «ASCII /THE PROGRAM OPTIONS INCLUDE:/ 
351 012 015 040 ASCII <12><15>/ Ss 1, oot DRESS CHECK/ 
352 012 015 040 ASCII <12><15>/ oa ATTERN TEST/ 
353 012 015 040 ASCII <12><15>/ . UNIQUE ny CHECK/ 
354 012 015 040 «ASCII <12><15>/ 394. MARCH TEST/ 
355 012 015 040 SCII <12><15>/ 5. ‘RANDOMNESS TESTS/ 
356 012 015 104 ASCIZ <12><15>/D0 YOU WANT TO DROP ANY OF THESE FROM THE EXERCISER?/ 
357 104 122 117 QS7: ASCIZ /DROP OPTION 1?/ - 
358 104 122 117 QS8: ASCIZ /DROP OPTION 27/ 
359 104 122 117 QS9: -ASCIZ /DROP OPTION it 
360 104 122 117 QS10: -ASCIZ /DROP OPTION 4?/ 
361 120 101 124 QS11: ASCIZ /PATTERN NUABER {1-10} TO BE USED WITH MARCH TEST?/ 
362 104 122 117 QS12: ASCIZ /DROP OPTION 5?/ 
363 105 116 101 QS13: -ASCIZ /ENABLE REFRESH MARGINING?/ 
364 104 111 123. QS14: -ASCIZ /DISABLE ERROR CORRECTION?/ \ 
365 105 116 101 S15: -ASCIZ /ENABLE END OF PASS SUMMARY PRINTOUT?/ 
366 105 116 101 QS16: -ASCIZ /ENABLE ERROR PRINTOUTS?/ 
367 EVEN 
368 
369 
370 
371 p++ 
372 ; THE PROTECTION TABLE IS USED BY THE RUNTIME 
37 : SERVICES TO PROTECT THE LOAD MEDIA. 
375 
376 BGNPROT 
$77 LSPROT:: 
378 177777 -1 sOFFSET "NTO P-TABLE FOR CSR ADDRESS 
379 177777 -1 sOFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
ty 177777 -1 sOFFSET INTO P-TABLE FOR DRIVE NUMBER 
382 ENDPROT 
383 
308 
+4 $SPATCH:: .BLKW 32. sTHIS LEAVES ROOM FOR THE 22 ML-11 REGISTERS TOO 
407 
408 ENDMOD 
409 
410 
411 
412 
425 


ML11_ PERFORMANCE EXERCISER 
PROGRAM HEADER AND TABLES 


sOTS.MAC CONTAINS THE 


MRP ORY — @ 


Mmronrr 
OWOWNAWE WN — O OONAUEWN HOOD ONAUE 


Be Be Be Be Se Se Ge Ge Be Se Be Se Se Se Se Ge SH Se Ge Fe Se Ge Se Se Ge 


MODULE 816PG1 
ROUTINE BLSGT1 


MODULE B16PG2 
ROUTINE BLSGT2 


MODULE B16PG3 
ROUTINE BL$PU1 


MODULE B16PG4 
ROUTINE BL$PU2 


MODULE B16MUL 


ROUTINE BLSSHF 


MODULE B1I6SAV 
ROUTINE $SAVE2 
ROUTINE S$SAVE3 
ROUTINE $SAVE4 
ROUTINE SSAVE5 


F 4 
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FOLLOWING MODULES AND ROUTINES: 


TO 


TO 


TO 


TO 


TO 
TO 


FETCH A FIELD OUT OF A VALUE 


FETCH A FIELD GUT OF A VALUE GIVEN THE ADDRESS 


STORE A NEW VALUE INTO A FIELD IN AN OLD VALUE 


STORE A NEW VALUE INTO A FIELD GIVEN THE ADDRESS 


MULTIPLY TWO SIGNED INTEGERS 
DIVIDE TWO SIGNED INTEGERS 


SAVE 2 REGISTERS (R2, R1) 

SAVE 3 REGISTERS (R3, R2, R1) 

SAVE 4 REGISTERS (R4, R3, R2, 

SAVE 5 REGISTERS (R5, R4, RS, RD R1) 


SEQ 0044 


Neth : G 4 
dy ey REGISTER SAVE AND RESTOR MACRO M1113 24-OCT-80 09:59 PAGE 76 


1389 : 
S\/\/\/\/\/N\/\ LEAVE OTS.MAC WITH THE LISTING TURNED ON \/\/\/\/\/\ 


SEQ 0045 


4 
BI6SAV REGISTER SAVE AND RESTOR MACRO M1113 24-OCT-80 09:59 PAGE 97 
"RANDOM NUMBER GENERATOR’ SEQ 0046 


; -SBTTL ‘RANDOM NUMBER GENERATOR* 

sROUTINE TO GENERATE 16-BIT PSEUDO RANDOM NUMBERS 

5 ; INPUTS: NONE 

6 ; IMPLIED INPUTS: SEED1, SEED2, SEED3 are global values ee will 
7 3 be used by, but not input to the genera 
8 OUTPUTS: "RANDOM'=-WORD CONTAINING RANDOM é-BiT. INTEGER VALUE 
9 ; IMPLIED OUTPUTS: NONE 

+ ;CALLING SEQUENCE: JSR PC,RN 

12 005256 010046 RN:: MOV RO,-(SP) 

13 005260 013700 005346 MOV SEED2,RO 

14 005264 000241 CLC 

15 00 005337 005344 DEC SEED1 

16 005272 006100 ROL RO 

17 005274 006100 ROL RO 

18 005276 063700 005344 ADD SEED1,RO 

19 005302 063700 005350 ADD SEED3,R0 
20 005306 010037 005346 MOV RO,SEED2 

21 005312 006100 ROL RO 
22 005314 006100 ROL RO 
23 005316 063700 005350 ADD SEED3,RO 

24 005322 006100 ROL RO 

25 005324 006100 ROL 
26 005326 010037 005350 MOV RO,SEED3 

27 005332 013737 005346 005352 MOV SEED2, RANDOM SAVE NEW R.N. 
28 005340 012600 MOV (SP)+,RO 
34 005342 000207 RTS PC 
32 
33 005344 000000 SEED1:: .WORD 9 

34 005346 001233 SEED2:: .WORD 1233 

. 005350 007622 SEED3:: .WORD 7622 

37 005352 000000 RANDOM:: .WORD 0 


SSS sss sees sess 
Ww 
_ 


BIGSAV REGISTER SAVE rok RESTOR MACRO M1113 24-OCT-80 09:59 PAGE bg 
“RANDOM NUMBER GENERATO 


6 ;MLX3 18-Sep-1980 09:39:38 
i : 18-Sep-1980 09:39:31 
9 ¢ 0001 MODULE Mix3 = 
10 ; 0002 BEGIN 
3 0003 
12 3 0004 REQUIRE 'BLSMAC.REQ'; 
13; 0943 
14; 0944 XSBTTL ‘REPORT CODING SECTION’ 
1§ ; 0945 
= 3 0946 EXTERNAL ROUTINE 
17: 0947 EOP: NOVALUE; 
18; 0948 
19 ; 0949 BGNRPT; 
20 ; 0950 
21; 0951 EOP<); 
22 ; 0952 
23 3 0953 RETURN; 
24; 0954 
3 3 0955 ENDRPT; 
" TITLE MLX3 
32 -GLOBL EOP 
i 
HH -SBTTL LRPT REPORT CODING SECTION 
40 005354 004737 073040 LRPT: JSR PC ,EOP ; 
3 005360 009207 RTS PC ; 
43 ; Routine Size: 3 words 
re : Maximum stack depth per invocation: 0 words 
2 
55 -SBTTL LSRPT REPORT CODING SECTION 
59 005362 004737 005354 LS$RPT:: JSR PC,LRPT : 


SEQ 0047 
TOPS=20 Bliss-16 V2(206) 
PA: <ROSEN>MLX3.BL1.1 (1) 
0951 
0947 
0953 


‘MLX3 MACRO M1113 24-OCT-80 09:59 PAGE 80 


‘LSRPT REPORT CODING SECTION SEQ 0048 

61 7MLX3 18-Sep-1980 09:39:38 TOPS 
4 : REPORT CODING SECTION 18-Sep-1980 09:39:31 PA:< 
005366 104425 TRAP 25 

#1 005370 000207 RTS PC 

67 ; Routine Size: 4 words 

4 : Maximum stack depth per invocation: 0 words 


ee ee Le ee Poe : Se Se ae 
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‘LSRPT REPORT CODING SECTION 


76 ;MLX3 
77 ; 


103 005372 


o 
w 


005374 
005400 
005402 


oOo fo Te To Je.) 
An rw 
Be Be Se Oe Oe Oe ee ee Be ee Oe Oe MESH OES 


th Ys Nah fet tetas - 4 


al et a ee ed ee ed eed 
QV kW a]NOw— 


000207 


004737 
104461 
000207 


_ tee 


18-Sep-1980 09:39:38 TOPS=20 Bliss-16 V2(206) 
AUTODROP SECTION 18-Sep-1980 09:39:31 PA:<ROSENDMLX3.BLI.1 (2) 


ZSBTTL "AUTODROP SECTION’ 


THIS SECTION IS OPTIONALLY EXECUTED IMMEDIATELY AFTER THE INITIALIZATION 
CODE IF THE /ADR FLAG WAS SET. THE INTENT IS TO EXAMINE THE UNITS UNDER 
TEST TO SEE IF THEY WILL RESPOND. THOSE THAT DON'T RESPOND ARE DROPPED. 


THIS FUNCTION IS AN INTEGRAL PART OF THE INITIALIZATION CODE ITSELF, AND 
THEREFORE A SEPARATE AUTODROP SECTION IS REDUNDANT AND NOT PROVIDED. 


BGNAUTO; 
RETURN; 
ENDAUTO; 
.SBTTL LAUTO AUTODROP SECTION 
LAUTO: RTS PC é 
; Routine Size: 1 word 
: Maximum stack depth per invocation: 0 words 
.SBTTL LEAUTO AUTODROP SECTION 
005372 LSAUTO::JSR PC,LAUTO 5 
TRAP 61 


RTS PC 


; Routine Size: 4 words — / 
; Maximum stack depth per invocation: 0 words 


SEQ 0049 


0955 


0969 


---- 


MLX3 


ILSAU 


MACRO M1113 24-OCT-80 09:59 PAGF 82 
TO AUTODROP SECTION 
DROP UNIT SECTION 
ZSBTTL "DROP UNIT SECTION’ 


1 
i LONGER BE TESTED. WHEN THIS 
' TAKEN: 
0978 | 
; 
= 
BGNDU: 
EXTERNAL 
LSLUN, 
DRIVE STATUS :BITVECTOR(8), 


DROPT DRIVES:BITVECTOR(8), 
NUM_DRIVES; 


LITERAL 
INACTIVE 
ACTIVE = 


= 0, 

1; 
DRIVE_STATUSC.L$LUN) = INACTIVE; 
DROPT_DRIVESC.LSLUN] = ACTIVE; 
NUM_DRIVES = .NUM_DRIVES - 1; 


1003 IF .NUM_DRIVES EQL 0 
THEN DOCLN; 


RETURN; 
ENDDU; 


A) teh eb het Ay tye! thd “bee ah a at I pet wry 
MEWNM — OO ONAUF WN O OONAUEFWN—"ODOOnNOu 


Be Se Se Se Ge Be Ge Se Ge Ge Be Ge Ge Ge Se Ge Se Ge Ge Se Se Se Ge Ge Ge Ge Se Fe Ge Fe Ge Ge Ge FH Se Ge Ge 
So 
oO 
Se] 
o 


RALSSSVSa2SSeVs 


005404 013700 
005410 006200 
005412 006200 


002074 LDU: 


ee ee ee ee ee ee ee ee ee ee ee ee ee 


TOPS=20 Bliss-16 V2(206) 


18-Sep-1980 
0 PA: <ROSEN>MLX3.BL1.1 (3) 


9:39:38 
18-Sep-1980 09:39:31 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DRIVE TO NO 


HAPPENS, THE FOLLOWING ACTIONS WILL BE 


(1) SET THE DRIVE STATUS TO INACTIVE AND SET THE DRIVE'S DROP FLAG. 
(2) DECREMENT THE NUMBER OF ACTIVE DRIVES, AND IF ZERO ABORT PASS. 


LSLUN, DRIVE.STATUS, DROPT.DRIVES 
NUM.DRIVES 


LDU DROP UNIT SECTION 

L$LUN,RO 3 
RO 

RO 


SEQ 0050 


0998 


[ee 


'MLX3 = MACRO ays 24-OCT-80 09:59 PAGE 83 


LDU DROP UNIT SECTI 


POMIPIMIPONPIPYRLY MIPOPOPONY PO POPU POPUP 
NNR @ @ oe 4 
NWNMNOU EW 


GEAR 


Ne 
SSSELSE 


005520 
005524 000207 


005526 004737 
005532 104453 
005534 000207 


032460 
002074 
177770 
000001 


004502 
002074 


032462 
002074 
177770 
000001 
004502 
032474 


000016 


005404 


3MLX3 


1$: ADD 


: Routine Size: 
3; Maximum stack 


-SBTTL 
L$DU:: JSR 
TRAP 


RTS 


; Routine Size: 


3; Maximum stack depth per invocation: 


DROP UNIT SECTION 


RO 
+ apd F Semen RO 
RO,-(SP) 


L$LUN,-(SP) 

#177770, (SP) 
#1,-(SP5 

-(§P) 

PC ,BLSPU2 

L$LUN,RO 

RO 


RO 

RO 

#DROPT .DRIVES, RO 
RO, (SP) 

L$LUN, -(SP) 
bagi tsp) 
#1,-(SP) 

(SP) ,=(SP) 


PC ,BLSPU2 
— 


44 
#16,SP 
PC 


41 words 


depth per invocation: 


L$DU DROP UNIT SECTION 
PC,LDU 


PC 


4 words 


a 
18-Sep-1980 09:39:38 
18-Sep-1980 09:39:31 


SEG 0051 


TOPS 
PA:< 


0999 


———EE 
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|LSDU DROP UNIT SECTI 


243 ;MLX3 
244 


245 
246 


MPPMIPM POPP PPNrnn 

PAPAIN & 

@ONOUSW-OV0eO~ 
Sete Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Ge Ge 


259 


a4 005536 


287 005540 
288 005544 
289 005546 


3 


kk kk ak ak a ot ot 
COOCOCOCO DCCOoOOCOOoCOooO 


MMP 
WN —-OOODNOUSWN—oO 


000207 


004737 


18-Sep-1980 09:39:38 
ADD UNIT SECTION 18-Sep-1980 09:39:31 


ZSBTTL ‘ADD UNIT SECTION’ 


‘ 

! THE ADD UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
; is BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
1 TO THE TEST CYCLE. SINCE THE INITIALIZATION CODE WILL HAVE 
; 10 BE EXECUTED IMMEDIATELY be AN 'ADD', THERE IS NO NEED 
FOR ANY CODE IN THIS SECTION 


BGNAU; 
RETURN; 
ENDAU; 
.-SBTTL LAU ADD UNIT SECTION 
LAU: RTS PC 3 
; Routine Size: 1 word 
; Maximum stack depth per invocation: 0 words 
-SBTTL LS$AU ADD UNIT SECTION 
005536 LSAU:: JSR PC,LAU 3 
TRAP 52 


RTS PC 


; Routine Size: 4 words — ; 
: Maximum stack depth per invocation: 0 words 


TOPS=20 Bliss-16 V2(206) 


PA: <ROSEN>MLX3.8L1.1 


(4) 


SEQ 0052 


1021 





| B 5 
(MLX3 MACRO R113 24-0CT-80 09:59 PAGE 85 
/LSAU ADD UNIT SECTI SEQ 0053 
| 
| 299 5 MLK3 18-Sep-1980 09:39:38 — TOPS=20 Bliss=16 v2(206) 
4 ; ADD UNIT SECTION 18-Sep-1980 09:39:31 PA: <ROSEND>MLX3.BLI.1 (4) 
302 ; 1025 
| 303 : 1026 END 
304 ; 1027 
305 ; 1028 ELUDOM 
309 
310 3; OTS external references 
311 -GLOBL BLS$PU2 
312 
313 
314 
315 
316 
317 
318 3; Size: 62 code + 0 data words 
319 ; Run Time: 00:02.7 
320 ; Elapsed Time: 00:08.9 ‘ 
321 ; eee Used: 17 pages - 
$56 3; Compilation Complete 


‘--——- -—--- — 


! ee ee “ 
'MLX3 MACRO M1113 24-OCT-80 09:59 PAGE 88 
|LSAU ADD UNIT SECTION 


| 6 :MLX4 23-0ct-1980 15:01:43 TOPS-20 Bliss-16 v2 
| f ; 23-Oct-1980 14:57:05 — PA:<ROSEND>MLX4.BLI. 
| 7% 0001 MODULE MLX4 = 
10 ; 0002 BEGIN 

73 0003 

12; 0004 REQUIRE 'BLSMAC.REQ'; 

3 3 1488 

14; 1489 XSBTTL ‘VARIABLES AND CONSTANTS’ 

15 ; 1490 

16; 1491 LITERAL 

17: 1492 

18 ; 1493 ONE = 1, ‘NUMBER OF TIMES TO RETRY FOR DATA ERROR 

19 ; 1494 SIX = 6 ‘NUMBER OF TIMES TO RETRY FOR SYSTEM ERROR 

20 ; 1495 NUM_PATS = 16, ‘NUMBER OF REGULAR PATTERNS 

21; 1496 NUM-REGS = 22,  '!NUMBER OF ML11 REGISTERS 

22 : 1497 TIMES TO_LOOP = 2 'LOOP READING CONSTANT 

23 ; 1498 BUF SIZ = 256*8,'2048 16-BIT WORDS IN A FULL BUFFER 

24 ; 1499 1256 = NUMBER OF WORDS IN A SECTOR 

25; 1500 | 8 = NUMBER OF SECTORS IN. THE BUFFER 

26 ; 1501 

27; 1502 ! 

28 ; 1503 ! ML11 DRIVE TYPES: 

29 ; 1504 ' 

30 ; 1505 

31; 1506 ML11A = 40'000110',  !'16K CHIPS 

32 ; 1507 ML11B = 40'000111', ‘64K CHIPS 

33 8 1508 

34; 1509 ! 

35; 1510 ' FUNCTION CODES: 

36; 1511 ' 

37 : 1512 

38 ; 1513 DRV_CLR = 40'11', 

39 ; 1514 wC_CMD = 20'51', 

40 ; 1515 WR-CMD = 40°61", 

41; 1516 RD CMD = 40'71', 

42 ; 1517 

43; 1518 ' 

44; 1519 ! STATUS CODES: 

45; 1520 \ 

46; .1521 

47: 1522 INACTIVE = 0, 

48 ; 1523 ACTIVE = 1, 

49; 1524 

50: 1525 ! 

51; 1526 ' ERROR THRESHOLD VALUES: 

oe 3 1527 ! 

55 2 1528 

54: 1529 $16K_LIMIT = 10,  'SOFT ERROR, 16K ARRAYS 

7 ; ea H16K_LIMIT = 10,  !HARD ERROR, 16K ARRAYS 

57 ; 1532 S64K_LIMIT = 10,  'SOFT ERROR, 64K ARRAYS 

58: 1533 HO4K_LIMIT = 10,  'HARD ERROR, 64K ARRAYS ‘ 


(2 
1 


06) 
(1) 


SEQ 0054 


‘MLX3) = MACRO M1113 24-OCT-80 09:59 PAGE 89 4 

‘LSAU ADD UNIT SECTION SEQ 0055 
60 ;MLX4 23-0¢t-1980 15:01:43 TOPS=-20 Bliss-16 V2(206) 

$} ; VARIABLES AND CONSTANTS 23-0ct-1980 14:57:05 PA:<ROSENDMLX4.BLI.1 (2) 


: SUMMARY OF ERROR CODES: 


; THE ‘INTEGRITY’ ROUTINE: 


{WRITE COMMAND: 


'ERRDF (1,MSG1,0); ‘weet INTEGRITY ROUTINE ERROR 01 
'ERRDF (2,MSG1,0); ‘eee INTEGRITY ROUTINE ERROR 02 **** 
'ERRDF (3,MSG1 ;0); !eeee INTEGRITY ROUTINE ERROR 03 


'READ COMMAND: 


'ERRDF(4,MSG1,0);  !se* INTEGRITY ROUTINE ERROR 04 *#t* 
'ERRDF (5,MSG1,0); \eeee INTEGRITY ROUTINE ERROR 05 **** 
'ERRDF (6,MSG1,0); ‘eeee INTEGRITY ROUTINE ERROR 06 **** 
‘ERRDF(7,MSG1,0);  !see* INTEGRITY ROUTINE ERROR 07 **«* 
'ERRDF(8,MSG2,0); !*#* INTEGRITY ROUTINE ERROR 08 **** 
‘ERRHRD(9,MSG4,0); ieee INTEGRITY ROUTINE ERROR 09 *ee* 
‘ERRSOFT(10,MSG3,0); ieee INTEGRITY ROUTINE ERROR 10 *#** 
'ERRSOFT(11,MSG3,1);!**** INTEGRITY ROUTINE ERROR 10 **** 


walealvabval wah ala eal al cal alah ah ab abeah sh ah ab ah ab ak ah ah ab ahead alah ale 
<P AAA AAAS BB BEE ENA 
WN O ODNAUESWN $0 OODNAUES WN OC OONOUS 


‘ . 
ee ee ee ee a td od od ot 


'ERRDF(12,MSG1,0); !**** INTEGRITY ROUTINE ERROR 12 **** 
'ERRDF(13,MSG1,0); !**e* INTEGRITY ROUTINE ERROR 135 **** 
92 'ERRDF(14,MSG1,0); !**** INTEGRITY ROUTINE ERROR 14 **** 
93 64 'ERRDF(15,MSG2,0); !*ee* INTEGRITY ROUTINE ERROR 15 **** 
94 565 'ERRHRD(16,MSG4,0); !*** INTEGRITY ROUTINE ERROR 16 **** 
95 566 ‘ERRSOFT(17,MSG3,8); ieee INTEGRITY ROUTINE ERROR 17 *#e* 
5 +t! 'ERRSOFT(18,MSG3,1);!**** INTEGRITY ROUTINE ERROR 18 **** 
98 569 ; 
99 570 ! OPTION 1: 
100 571 : ' 
101 572 
102 573 'WRITE COMMAND: 
103 574 
104 575 'ERRDF(101,MSG1,0); {**** OPTION 1 ERROR 01 **** 
105 576 'ERRDF(102,MSG1,0);  !*##** OPTION 1 ERROR O2 **** 
Hh grt 'ERRDF(103,MSG1,0); !#e** OPTION 1 ERROR 03 **** 
108 579 'CHECK OR READ: aad 
109 580 
110 581 'ERRDF(104,MSG1,0);  !###* OPTION 1 ERROR 04 eee« 
111 582 'ERRDF(105,MSG1,0); !ee* OPTION 1 ERROR 05 **** 
112 583 'ERRDF(106,MSG1,0); ‘#2 OPTION 1 ERROR 06 **** 
113 584 'ERRDF(107,MSG1,0); !*e#* OPTION 1 ERROR 07 **#* 
114 585 'ERRDF(108,MSG2,0); ‘eee OPTION 1 ERROR 08 **** 


sss hss Sa —_ 
‘ 
~O © CO 0909 C0 C0 C0 CD CD CD CO “VI 
—SOOODNAUSWNH—OO 
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| 


MLX3 MACRO M1113 
LSAU ADD UNIT SECTION 


24-OCT-80 09:59 PAGE 90 


116 = MLX4 23-0ct-1980 15:01:43 
BF ; VARIABLES AND CONSTANTS 23-0c¢t-1980 14:57:05 
119 ; 1586 'ERRHRD(109,MSG4,0); !##e* OPTION 1 ERROR 09 see 

120 : 1587 » JERRSOFT(116,MSG3,0); i*e*e OPTION 1 ERROR 10 see 

121: 1588 ‘ERRSOFT(111.MSG3,0): ‘*#** OPTION 1 ER 


ROR 11 #eee 


* 


TOPS=20 Bliss-16 Vv2(206) 
PA:<ROSEN>MLX4.BLI.1 (2) 


SEG 0056 


MLX3 
‘LSAU 


ADD UNIT SECTION 


ee a ot ot 2 2 td 
WN —-ODONOUSEW 
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142 


3MLX4 
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co 
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» 


OPTION 2: 

'WRITE COMMAND: 
'ERRDF(201,MSG1,0); !*#e* OPTION 2 
‘ERRDF(202,MSG1,0);  ieeee OPTION 2 
‘ERRDF(203.MSG1,0);  ‘#ee* OPTION 2 

‘CHECK OR READ: 
'ERRDF(204,MSG1,0); !##** OPTION 2 
‘ERRDF(205,MSG1,0);  ‘#e*® OPTION 2 
‘ERRDF(206,MSG1,0);  ‘#ee® OPTION 2 
iERRDF(207.MSG1,0): ‘eee OPTION 2 
\ERRDF(208,MSG2,0); ‘eeee OPTION 2 
iERRHRD(209,MSG4,0); ieee OPTION 2 
‘ERRSOFT(210,MSG3,0); i#*** OPTION 2 
(\ERRSOFT(211.MSG3,1); i##** OPTION 2 

‘LOOP CHECK OR READ: 
‘ERRDF(212,MSG1,0); !*#** OPTION 2 
i\ERRDF(213.MSG1.0): ieee OPTION 2 
iERRDF(214.MSG1,.0): ite OPTION 2 
\ERRDF(215.MSG1.0):  ‘eeee OPTION 2 
\ERRDF(216,MSG2,0);  !##e® OPTION 2 
\ERRHRD(217,MSG4,0); is*** OPTION 2 
‘ERRSOFT(218,MSG3,0); ‘e*** OPTION 2 
‘ERRSOFT(219,MSG3,0); ‘#** OPTION 2 
1 
OPTION 3: 

‘WRITE COMMAND: 
'ERRDF(301,MSG1,0); !##** OPTION 3 
\ERRDF(302.MSG1,0); ‘eee OPTION 3 
‘ERRDF(303.MSG1,0); ‘#te OPTION 3 

‘CHECK OR READ: 
'ERRDF(304,MSG1,0); !*## OPTION 3 
‘ERRDF(305.MSG1,0); ‘eee OPTION 3 
iERRDF(306.MSG1,0):  i*eee OPTION 3 
iERRDF(307.MSG1.0): ieee OPTION 3 
iERRDF(308.MSG2,.0): ‘eee OPTION 3 
\ERRHRD(309,MSG4,0); ‘eeee OPTION 3 
iERRSOFT(310,MSG8,0); ieee OPTION 3 
\ERRSOFT(311.MSG3,0); ieee OPTION 3 


23-0ct-1980 1 
80 1 


23-0ct-19 


arene 
eaee 
rene 


ERROR 01 
ERROR 02 
ERROR 03 


04 rane 
05 sree 
06 eeee 


geae 
kent 
geet 
rank 
gene 


E 
ERROR 
E 


geet 
gent 
kart 
gant 
rene 
agke 
gaat 
gent 


mn 

r 

xz 

Oo 

=z 
ad ed ed ed ed ee ed 
OONA UNE WP 


5: 
4: 


0 
5 


1 


7: 


74 
:0 


3 
5 


TOPS=20 Bliss-16 v2(206) 


PA:<ROSEN>MLX4.BLi.1 


(3) 


SEQ 0057 
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LSAU ADD UNIT SECTION SEQ 0058 
179 :MLX4 23-Oct-1980 15:01:43 TOPS=20 Bliss-16 v2(206) 
H+ 3 VARIABLES AND CONSTANTS 23-0¢t-1980 14:57:05 PA:<ROSENDMLX4.BLI.1 (3) 

| 182; 1641 
183 : 1642 
184 : 1643 i OPTION 4: 

185 ; 1644 i 

186 ; 1645 

187 : 1646 'MARCHING UP: 

188 : 1647 

189 : 1648 WRITE DATA: 

190 : 1649 : 

191 ; 1650 'ERRDF(401,MSG1,0);  '*#** OPTION 4 ERROR 01 «ee 

192 : 1651 ‘ERRDF(402.MSG1.0):  iteee OPTION 4 ERROR 02 ##e« 

193 : 165¢ iERRDF(403,MSG1,0):;  i#e* OPTION 4 ERROR 03 eee 

195 : 1654 'MARCHING UP: 

196 : 1655 

197 : 1656 'CHECK OR READ DATA: 

198 ; 1657 

199 : 1658 'ERRDF(404,MSG1,0);  !*#*® OPTION 4 ERROR 04 se 

200 : 1659 \ERRDF(405.MSG1.0);  isee* OPTION 4 ERROR 05 se 

201 : 1660 iERRDF(406.MSG1.0):  iste® OPTION 4 ERROR 06 se 

202 : 1661 ‘ERRDF(407.MSG1,0):  iste* OPTION 4 ERROR 07 *#ee 

203 : 1662 ‘ERRDF(408.MSG2,0); ‘ee OPTION 4 ERROR 08 *eee 

204 : 1663 \ERRHRD(409,MSG4,0); !#** OPTION 4 ERROR 09 see 

205 : 1664 i\ERRSOFT(410,MSG3,0); !*#* OPTION 4 ERROR 10 ee 

206 : - 1665 \ERRSOFT(411.MSG3,0): i*#e* OPTION 4 ERROR 11 *#e* 

207 : 1666 1 

208 : 1667 WRITE COMP: 

209 : 1668 

210 : 1669 'ERRDF(412,MSG1,0); !*##* OPTION 4 ERROR 12 see 

211 : 1670 ‘ERRDF(413.MSG1.0):  iseee OPTION 4 ERROR 13 tee 

gt : 1671 \ERRDF(4G14.MSG1,0);  i#e® OPTION 4 ERROR 14 see 

514 : 1673 'MARCHING DOWN: 

215 : 1674 

216 : 1675 ‘CHECK OR READ COMP: 

217 : 1676 

218 : - 1677 'ERRDF(415,MSG1,0); !#** OPTION 4 ERROR 15 see 

219 : 678 iERRDF(416.MSG1.0):  isee* OPTION 4 ERROR 16 see 

220 : 1679 ‘\ERRDF(417.MSG1.0): ieee OPTION 4 ERROR 17 eee 

221 : 1680 iERRDF(418.MSG1.0):  itee* OPTION 4 ERROR 18 eee 

222 : 1681 iERRDF(419.MSG2.0): ieee OPTION 4 ERROR 19 seee 

223 : 1682 (ERRHRD(420,MSG4,0); itete OPTION 4 ERROR 20 eee 

226 : 1683 ‘ERRSOFT(421,MSG8,0); iteee OPTION 4 ERROR 21 #eee 

225 : 1684 \ERRSOFT(422.MSG3,0): ieee OPTION 4 ERROR 22 see 

226 : 1685 

227 : 1686 ‘WRITE DATA: 

228 : 1687 

229 : 1688 'ERRDF(423,MSG1,0);  !*t** OPTION & ERROR 23 eee 

230 : 1689 ‘ERRDF(424.MSG1.0):  iteee OPTION 4 ERROR 24: *eee | 
| 231 : 1690 iERRDF(425.MSG1.0):  iteee OPTION 4 ERROR 25 eee a. 
233 : 1692 'MARCHING UP: 
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L$AU ADD UNIT SECTION 
tH sMLXG SEQ 005 
9 
$37 VARIABLES AND CONSTANTS 23-Oct-1980 15:01:43 
“Oct- :01: OPS- tee 
Bi 1 SSRIS NESS FRPSRERRSAC HELIS 
5a * 'ERRDF (426, : 
RRM ig a 
44 . oMSG1,0); ine —— 
545 : 1699 ‘ERRDF(429.MSG1,0); ! tt OPTION 4 ERROR 28 *** 
1988 ; "MSG1,0);  ieee® OPTION 4 : 
| See 170¢ iERRDF(430.MSG2,0); ieeee ERROR 29 sees 
247 ; EAmantith Regl ois iecee Ortion & Enon 91 eses 
LTR RRRSrtcLeMaates, S02 Spin & Ear $2 5 
' - 4 ee 
$3) ; 1706 
253 : 4444 i OPTION 5: 
$3¢ ; 1709 : 
; 1710 1s 
257 ; 1712 . 
$38 : 1713 'WRITE COMMAND: 4 
6 4 i] 
260 : 'ERRDF (5101,MSG1,0); 
261 1715 ERRDF (510@-RS61 0); jee OPTION 5, RAND! ERROR 02 sess 
268 1717 ' °*MSG1.0);  i##* OPTION 5. RAND1 ERROR o wines 
264 : 1719 'CHECK OR READ: 
= 1720 'ERRDF(5104,MSG1,0);  ! 
66 1721 VERRDF (5105 MSGI .0);  iveee re ee eeet teen it cece 
i RRRSer ie rie RB UB 
£ : ° + 
i en me: = 
: 1726 MSG4,0); ‘!*ee* OPTION 5° winced 
$72 : 1759 'ERRSOFT(5110,MSGS 0}: ieeee OP , RAND1 ERROR 09 eee 
373 1728 $¢3.0); ieee OPTION 5, RAND1 ERROR 11 sees 
375 : 1730 !*RAND2* ROUTINE: 
1731 
| 277 1732 'WRITE COMMAND : 
579 « ‘ERRDF (5201,MSG1,0); 
ee ee ee at ee 
| HE 1736 »MSG1,0);  ‘#e** OPTION 5, RAND2 ERROR 03 vee 
$7 F 1738 'CHECK OR READ: 
285 : 'ERRDF (5204.MSG1,0); 
| 286 ire 'ERADF(S308-R361 0); !ssss OPTION 3. RANDZ ERROR 5 ss 
: 1742 °MSG1.0);  it** OPTION 5, amen 
588 iERRDF (5207.MSG1.0) : » RAND2 ERROR 06 * 
Oe tee eee a pe 
| ' MSG4,0); ieee* OPTION 5. RAND2 ERROR 8 ean 
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767 !*RAND4* ROUTINE: 
769 'WRITE COMMAND: 
'ERRDF (5401,MSG1,0); 'eeee OPTION 5, RAND4 ERROR 01 *##* 


'ERRDF (5402,MSG1,0); ieee OPTION 5, RAND4 ERROR 02 tee 
'ERRDF (5403,MSG1,0); !eeee OPTION 5, RAND4 ERROR 03 *+*#* 


LSAU ADD UNIT SECTION SEQ 0060 
291 :MLXG 23-Oct-1980 15:01:43  TOPS-20 Bliss-16 v2(206) 
$36 3 VARIABLES AND CONSTANTS 23-0ct-1980 14:57:05 PA: <ROSEND>MLX4.BLI.1 (3) 
294 1745 'ERRSOFT(5210,MSG3,0); !**ee OPTION 5, RAND2 ERROR 10 eeee 
295 1746 \ERRSOFT(5211.MSG3.0): ‘#*ee OPTION 5, RAND2 ERROR 11 #eee 
297 1748 '*RAND3’ ROUTINE: 
| 298 1749 
| 299 1730 'WRITE COMMAND: 
301 1752 'ERRDF(5301,MSG1,0);  !*e*e OPTION 5, RAND3 ERROR 01 see 
302 1753 ‘ERRDF(5302,.MSG1,0);  ‘#*e* OPTION 5, RAND3 ERROR 02 see 
303 1736 ‘ERRDF(5303,.MSG1,0);:  ‘!**e* OPTION 5, RAND3 ERROR 03 «eee 
305 1756 ‘CHECK OR READ: 
307 1758 'ERRDF(5304,MSG1,0); '*e* OPTION 5, RAND3 ERROR 04 tee 
30 1759 \ERRDF(5305.MSG1.0):;  ‘*ee* OPTION 5, RAND3 ERROR 05 eee 
30 1760 ‘ERRDF(5306,MSG1,0);  ‘**** OPTION 5, RAND3 ERROR 06 eee 
31 1761 ‘ERRDF (5307, MSG1,0); ieeee OPTION 5, RAND3 ERROR 07 *eee 
3 1762 ‘ERRDF(5308,.MSG2,0);  ‘**** OPTION 5, RAND3 ERROR 08 *#ee 
1763 \ERRHRD(5309,MSG4,0); iteee OPTION 5. RAND3 ERROR 09 tex 
1764 iERRSOFT(5310,MSG$,0); i#*e* OPTION 5. RAND3 ERROR 10 #eee 
1765 \ERRSOFT(5311,MSG3.0): ‘**** OPTION 5, RAND3 ERROR 11 *««« 
1 
1 
1 
1 


WWNWAAANWG 
at ed cd ed ad od ead ad 
OONOUSWNH OOM 


324 1775 ICHECK OR READ: 
326 1777 VERRDF(5404,MSG1,0); !*t*® OPTION 5, RAND4 ERROR 04 eee 
327 1778 VERRDF(5405.MSG1.0):  ietee OPTION 5. RAND ERROR 05 *ee« 
328 1779 \ERRDF(5406.MSG1.0):  ittee OPTION 5. RAND4 ERROR 06 eee 
329 1780 iERRDF(5407.MSG1.0):  ittee OPTION 5. RAND4 ERROR 07 «eee 
330 1781 VERRDF (5408 MSG2 0); ieeee OPTION 5. RAND4 ERROR 08 tee 
331 1782 iERRHRD(5409,MSG4 iveet OPTION 5. RAND4 ERROR 09 see 
332 1783 \ERRSOFT(5410, aces. 03; ieeee OPTION 5. RAND4 ERROR 10 eee 
33 1784 i\ERRSOFT(5411.MSG3.0): itee* OPTION 5. RAND4 ERROR 11 *#e* 


SAF 


1788 ‘ 
1789 CODES FOR WHY A UNIT WAS DRGPPED: 


WANA Ww 
WWW 


MEWN Oo OOn 


1, ‘DRIVE NOT POWERED UP 

ee ‘DRIVE NOT AN ML11 UNIT 

3, ‘OPERATOR SET TEST LIMITS INCORRECTLY 

4, ‘FAILED ALL RETRIES FOR A NON-FATAL ERROR 
5, !CONTROLLER FATAL ERROR 


FEEFESE pete heheh ttt 4 $33 3 
| Wwrn—-o 
Be Se Be Be Be Be Be Be Be Be Be Be be Be Be Be Be Se Se Fe Be Be Se Se Se Be Ge Be Se Bs Ge Ge Se Se Se Gs Ge Se Fe Se Se Ge Ge Se Se Se Se Se Se eee & 
~~ 
NNNN 
ASNNN 
euwn— 
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BREE EE £*\WWAANAWNA ANID NN NINN NM NNIND 3 2 A OO Ot ae es SO 
Ani WR $0 OD NOU EWN $0 OOBNAUS WN O OONOUSWN-OO 


GLOBAL 


PRA D DD trietetetetetitetinted et at at et at of at at et where fhe be peepee be pert + 


me ee ee ee a a a at od od = = = od od ot 3 3 


— 
oo 
= 
oo 


CODE_6 = 6, 
CODE_7 = 7, 
CODE_8 = 8; 
WBUFF :VECTORCBUFSIZJ] V 


:VECTORCBUFSIZ] V 


: VOLATILE, 
: VOLATILE, 


QUICK : VOLATILE, 
PATTERN : VOLATILE, 
DATA_COUNT 
COMP” COUNT 
EOP_COUNT 
BASE_ADDR, 
VEC 


BR_LEVEL, 


: VOLATILE, 
: VOLATILE, 


23-Oct-1980 15:01:4 
23-0ct-1980 14:57:0 


'DRIVE FATAL _ 
'ECC HARD ERRO 
‘ECC LOGIC FAILED TO DETECT ERROR 


3 TOPS-20 Bliss-16 Vz 
5 PA: <ROSEN>MLX4.BLI. 


veatik’ 
OLATILE, 


!ITMPORTANT -=- WBUFF AND RBUFF MUST 
'BE CONTIGUOUS AND IN THAT ORDER!! 


SOFTS: BLOCKVECTOR(8,16], 'COUNTS FOR 8 LUNS, 16 ARRAYS EACH 
HARDS: BLOCKVECTOR(8,16], ‘COUNTS FOR 8 LUNS, 16 ARRAYS EACH 
TRIES: BLOCKVECTOR([8,16), ‘COUNTS FOR 8 LUNS, 16 ARRAYS EACH 


WR_COUNT, 
WR_ THOUSANDS , 
WR-MILLIONS, 


RD_COUNT, 

RD_ “THOUSANDS, 
RD_MILLIONS, 
WC _COUNT 


wC- “THOUSANDS, 
WC"MILLIONS, 


1_AM_DONE, 
RETRYING, 
BOARD, 
BANK; 


'# BYTES TRANSFERED VIA ‘WRITE’ 
‘THOUSANDS OF BYTES 
‘MILLIONS OF BYTES 


'# BYTES TRANSFERED VIA ‘READ' 


'# BYTES TRANSFERED VIA ‘WRITE CHECK’ 


ML_REG:VECTORCNUM_REGS) VOLATILE, 
PTABLE_ADDR:VECTOR(8) VOLATILE, 
DRIVE “STATUS: BITVECTOR[8) VOLATILE, 


206) 
(3) 


SEQ 0061 
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\LSAU ADD UNIT SECTI SEQ 0062 
| 403 :MLX4 23-Oct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
| om : VARIABLES AND CONSTANTS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (3) 

406 ; 1849 DROPT_DRIVES:BITVECTOR(8] VOLATILE, 

re ; 1339 ar re :VECTOR(8,BYTEJ, 

409 ; 1852 LOW-SECT: 'VECTORCB) VOLATILE, , 

iat ; 1827 TOP-SECT:VECTOR(8) VOLATILE; 

412 ; 1855 

413 ; 1856 

414 ; 1857 MACRO 

415 ; 1858 

416 ; 1859 ! 

aH ; 1860 ! TO CALCULATE THE TEST RANGES FOR A PARTICULAR LOGICAL UNIT: 

419; 1862 

420 ; 1863 LOWEST = .LOW_SECTC.LUNI%, 'THE FIRST SECTOR TO TEST 

“3 ; 1866 HIGHEST = .TOP_SECTC.LUNJ2, 'THE LAST SECTOR TO TEST 

423 ; 1866 ! 

424 ; 1867 1 ADDRESS IN MAIN MEMORY THAT CONTAINS THE PHYSICAL DRIVE 

; Hh NUMBER THAT CORRESPONDS TO A PARTICULAR LOGICAL UNIT: 

427 ;: 1870 

ry 3 + 444 DRIVE = (,PTABLE_ADORC.LUN] + 6)%, 

430 ; 1873 

431; 1874 ! 

‘x : 1873 1 ML-11 REGISTER NAMES: 

434 ; 1877 

435 ; 1878 MLCS1 = .ML_REG(O]2, ‘CONTROL AND STATUS REGISTER 1 

436 ; 1879 MLWC = .ML_REG(1)%, ‘WORD COUNT REGISTER 

437 ; 1880 MLBA = .ML_REG(2)2, 'UNIBUS ADDRESS REGISTER 

438 ; 1881 MLDA = .ML_REG(3]%, 'DESIRED ADDRESS REGISTER 

439 ; 1882 MLCS2 = .ML_REG(4)%, ‘CONTROL AND STATUS REGISTER 2 

440 ; 1883 MLDS = .ML_REG(5]%, ‘DRIVE STATUS REGISTER 

441 ; 1884 MLER = .ML_REG(6)%, ‘ERROR REGISTER 

442 ; 1885 MLAS = .ML_REGC7)%, ‘ATTENTION SUMMARY REGISTER 

463; 1886 MLPA = .ML_REG(8)2, ‘PROM ADDRESS REGISTER 

464 ; 1887 MLDS = .ML_REG(9I2 ‘DATA BUFFER REGISTER 

445 : 1888 MLMA = .MLTREGL10J£, ‘MAINTENANCE REGISTER 

646 ; 1889 MLDT = .ML_REG(11)%, ‘DRIVE TYPE REGISTER 

447 ;: 1890 MLSN = .ML_REG(12)%,  'SERIAL NUMBER REGISTER 

448 ; 1891 MLE1 = .ML_REGC13)%, ‘ECC REGISTER 

449 ;: 1892 MLE2 = .ML_REG(14)%, ‘ECC REGISTER 2 

450 ; 1893 MLD1 = .ML_ Gt 192E. ‘DATA DIAGNOSTIC REGISTER 1 

451; 1894 MLD2 = .ML_REGL16)%, !DATA DIAGNOSTIC REGISTER 2 

452 ; 1895 MLEE = .ML_REGL17)%, ‘ECC ERROR REGISTER 

453 ; 1896 MLEL = .ML_REG(18)%, ‘ECC ERROR LOCATION REGISTER 

454 ; 1897 MLPD = .ML_REGL19]%, 'PROM DATA REGISTER 

455 ; 1898 : MLBAE = .ML_REG(20)%,  'BUS ADDRESS EXTENSION REGISTER 

436 ; 1899 MLCS3 = .ML-REGC21J%, !CONTROL AND STATUS REGISTER 3 

457 ; 


rf 
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459 ;MLXG 

ant $ VARIABLES AND CONSTANTS 

462 ; 1901 

463 ; 1902 

464 ; 1903 : 

465 ; 1904 ' BIT ASSIGNMENTS: 

466 ; 1905 ! 

467 ; 1906 

468 ; 1907 

469 ; 1908 ‘ 

470 ; 1909 ' MLCS1 BITS: 

471 ; 1910 ; 

472; 1911 

473; 1912 sc = (MLCS1)<15,1>%, 
474; 1913 TRE = (MLCS1)<14,1>%, 
475; 1914 MCPE = (MLCS1)<13,1>%, 
476 ; 1975 DVA = (MLCS1)<11,1>%, 
477 ; 1916 RDY = (MLCS1)<7,1>%, 
478 ; 1917 IE = (MLCS1)<6,1>%, 
479 ; 1918 FUNC = (MLCS1)<0.6>%, 
480 ; 1919 

481 ; 1920 

482 ;: 1921 ' MLCS2 BITS: 

483 ; 1922 ‘ 

484 ; 1923 

485 ; 1924 DLT = (MLCS2)<15,1>%, 
486 ; 1925 WCE = (MLCS2)<14,1>%, 
487 ; 1926 PE = (MLCS2)<13,1>%, 
488 ;: 1927 NED = (MLCS2)<12,1>%, 
489 ; 1928 NEM = (MLCS2)<11,1>%, 
490 ; 1929 PGE = (MLCS2)<10,1>%, 
491 : 1930 MXF = (MLCS2)<9, 1>%, 
492 ; 1931 MDPE = (MLCS2)<8,1>%, 
493 ; 1932 ORDY = (MLCS2)<7,1>%, 
494; 1933 IRDY = (MLCS2)<6,1>%, 
495 ; 1934 CLR = (MLCS2)<5,1>%, 
496 ; 1935 PAT = (MLCS2)<4,1>%, 
497 ; 1936 BAI = (MLCS2)<3,1>%, 
498 ; 1937 UNIT = (MLCS2)<0,3>%, 
499 ;: 1938 

500 ; 1939 ! 

501 ; 1940 ' MLDS BITS 

502 ; 1941 ' 

503 ; 1942 

504 ; 1943 ATA = (MLDS)<15,1>%, 
505 ;: 1944 ERR = (MLDS)<14,1>%, 
506 ; 1945 MOL = (MLDS)<12,1>%, 
507 ; 1946 LBT = (MLDS)<10,1>%, 
508 : 1947 DPR = (MLDS)<8,1>%, 
509 ;: 1948 DRY = (MLDS)<7,1>%, 
510 ; 1949 VV = (MLDS)<6,1>%. 
511; 1950 

512 ; 1951 ' 

513; 1952 ' MLER BITS: 


SEQ 0063 


743 TOPS=20 Bliss-16 V2(206) 
5 PA:<ROSEN>MLX4.BLI.1 (3) 


‘SPECIAL ug te 

! TRANSFER ERROR 

'MASSBUS CONTROL BUS PARITY ERROR 
eine AVAILABLE 


‘INTERRUPT ENABLE 
'FUNCTION (COMMAND) CODE AND GO BIT 


'DATA LATE 

‘WRITE CHECK ERROR 
'PARITY ERROR 
‘NON-EXISTENT DRIVE 
'NON-EXISTENT MEMORY 


' PROGRAM eee 


‘MISSED TRANSFER 
‘MASSBUS ‘DATA BUS PARITY ERROR 


EADY 
'CONTROLLER CLEAR 
‘PARITY TEST 
'UNIBUS ADDRESS INCREMENT INHIBIT 
‘UNIT SELECT 


'ATTENTION ACTIVE 
‘ERROR SUMMARY 

'MEDIUM ON LINE 

'LAST BLOCK TRANSFERRED 
‘DRIVE PRESENT 

‘DRIVE READY 

'VOLUME VALID 


a 


—_— — - ——— - LE - nae ee a eee —_———— 
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(MLEE)<13,1>%, 'CRC ER ROR 
(MLEE)<6,6>2, ‘CHANNEL IN ERROR 
(MLEE)<0,6>2; ‘ERROR FUNCTION 


_ 

fe) 

Oo 

=» 

oO 
nnnunw 


515 :MLX4 23-0ct-1980 15:01:43  TOPS-20 Bliss-16 v2(206) 
21 ; VARIABLES AND CONSTANTS 23-Oct-1980 14:57:05  PA:<ROSEN>MLX4.BLI.1 (3) 
518 ; 1953 

519 : 1954 

520 : 1955 DCK = (MLER)<15,1>%, ‘DATA CHECK 

521; 1956 UNS = (MLER)<14,1>%, ‘DRIVE UNSAFE 

522 ; 1957 OP] = (MLER)<13,1>%. \OPERATION INCOMPLETE 

523 : 1958 1AE = (MLER)<10.1>%. iINVALID ADDRESS ERROR 

524 : 1959 AOE = (MLER)<9,1>%, t ADDRESS pOVERFLOW ERROR 

525 ; 1960 ECH = (MLER)<6,1>%, iECC HARD ERROR 

526 : 1961 DPAR = (MLER)<5.1>%, iDATA PARITY ERROR 

527 : 1962 CPAR = (MLER)<3,1>%, ‘CONTROL PARITY ERR 

528 ; 1963 RMR = (MLER)<2,1>%. REGISTER MODIFICATION REFUSED 
529 : 1964 ILR = (MLER)<1.1>%. ‘ILLEGAL REGISTER 

530; 1965 ILF = (MLER)<0,1>%, ‘ILLEGAL FUNCTION 

531; 1966 

532; 1967 ! 

533; 1968 i MLMR BITS: 

534 ; 1969 ! 

535 : 1970 

536 : 1971 $2 = (MLMR)<11,5>%, ‘SYSTEM SIZE (# ARRAY CARDS) 
537 : 1972 ARR_TYP = (MLMR)<10,1>%, iARRAY TYPE (0=16K;1=64K CHIPS) 
538 : 1973 TRT = (MLMR)<B,2>%,_ iTRANSFER RATE 

539 : 1974 REF MAR = (MLMR)<7,1>%. iREFRESH MARGIN 

540 ; 1975 PROM_RW = (MLMR)<6,1>%, 'PROM READ/WRITE 

541 : 1976 PROM-DIS = CHLMRI<S,194, ‘PROM DISABLE 

42: 1977 DAT_CLK = (MLMR)<4,1>%,_ iDATA CLOCK 

543 : 1978 DAT-OM = (RLMRD <3. 1>%, iDATA DIAGNOSTIC MODE 

544 : 1979 DCKTEN = (MLMR)<2,1>%, iDATA CHECK ENABLE 

545 : 1980 ECC"DIS = (MLMR)<1,1>%, ‘ECC DISABLE 

546 : 1981 C7DM = (MLMR)<O,1>%, ‘ECC DIAGNOSTIC MODE 

547 : 1982 

548 : 1983 : 

549 : 1984 i MLSN BITS: 

550 : 1985 i 

551 : 1986 

552 : 1987 SN3 = (MLSN)<12,4>%, 'HIGH ORDER DECADE 

553 ; 1988 SN2 = (MLSN)<8,4>%, iTHIRD DECADE 

554: 1989 SN1 = (MLSN)<4.4>%, iSECOND DECADE 

355 : 1990 SNO = (MLSN)<0.4>%, ‘LOW ORDER DECADE 

557 : 992 

558 : 1993 i MLEE BITS 

559 : 1994 i 

560 : 1995 

561 : 996 UNC (MLEE)<15,1>%, UNCORRECTABLE ERROR 

562 ; 1997 SGL (MLEE)<14.1>%, iSINGLE ERR 


2003 EXTERNAL 
2004 





-———- 
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|LSAU ADD UNIT SECTION 


SMLKG 


23-0ct-1980 1 
VARIABLES AND CONSTANTS 23-0ct-1980 1 
2005 ! 
2006 iMEADER INFORMATION: 
2007 i 
2008 
2009 LSUNIT, LSLUN, 
2010 
2011 
201¢ 'ALL OF THE SOFTWARE P-TABLE LOCATIONS: 
2014 
2015 LIMIT, RANGE, LSECT, TSECT, ONLY, 
2016 DROPNE, DROP, DROP2, DROPS, DROP, DROPS, 
2017 MARPAT, REFRESH, ECCDIS, EOPSUM, ERROUT, 
2019 
2020 'RANDOM NUMBER GENERATION VALUES: 
2022 
2023 SEED1, SEED2, SEED3, RANDOM; 
2024 
2025 
202 


2032 
2033 EQUALS 


6 
344 EXTERNAL ROUTINE 
SOS RN : NOVALUE; 


'FOR 16-BIT RANDOM NUMBER GENERATION 


TOPS=20 Bliss-16 V2(206) 
PA: <ROSEN>MLX4.BLI.1 (3) 


SEQ 0065 
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604 ;MLK4 23-0ct 
#4 3 VARIABLES AND CONSTANTS 23-0ct 
| 607 ; 2034 ‘14 
608 ; 2035 =! 
609 ; 2036 |! THE PATTERN TABLE: 
610 ; 2037 |! 
611; 2038 ! 
612 ; 2039 ‘=|! REGULAR PATTERNS 
613; 2040 |! 
614 ; 2041 | PATTERN 
nz ; ones NUMBER THE TWO ASSOCIATED COUNTS 
617 ; 2044 =! 1 0 NIBBLES OF DATA, — iT OF COMP 
618 ; 2045 =! 2 1 NIBBLE OF DATA, NIBBLE OF COMP 
619 ; 2046 =! 3 4 NIBBLES OF DATA, NIBBLES OF COMP 
620 ; 2047 |! 4 9 NIBBLES OF DATA, NIBBLES OF COMP 
es) 3 sree 5 1024 NIBBLES OF DATA, 1028 NIBBLES OF COMP 
623 ; 2050 =! 6 ? NIBBLES OF DATA, — NIBBLES OF COMP 
624 ; 2051 +! 7 1 NIBBLE OF DATA, NIBBLE OF COMP 
625 ; 2052 (|! 8 4 NIBBLES OF DATA, i NIBBLES OF COMP 
626 ; 2053‘! 9 9 NIBBLES OF DATA, 9 NIBBLES OF COMP 
Ger 3 2054 =! 10 1024 NIBBLES OF DATA, 1024 NIBBLES OF COMP 
628 ; 2055! 
629 ; 2056 “=! 
630 ; 2057 ! 
631 ; 2058 ! COMPLEMENT PATTERNS 
632 ; 2059 =! 
633 ; 2060 ! PATTERN 
634 ; 2061 |! NUMBER THE TWO ASSOCIATED COUNTS 
635 ; 2062 |! 
036 ; 2063 ! - 1 0 NIBBLES OF DATA, —_ NIBBLES OF COMP 
637 ; 2064 ! - 2 1 NIBBLE OF DATA, NIBBLE OF COMP 
638 ; 2065 ! - 3 4 NIBBLES OF DATA, { NIBBLES OF COMP 
639 ; 2066 =! - 4 9 NIBBLES OF DATA, 9 NIBBLES OF COMP 
re ; soca - 5 1024 NIBBLES OF DATA, 1024 NIBBLES OF COMP 
642 ; 2069 ! - 6 0 NIBBLES OF DATA, 1024 NIBBLES OF COMP 
643 ; 2070 ! - 7 1 NIBBLE OF DATA, 1 NIBBLE OF COMP 
| 644 ; 2071 |! - 8 4 NIBBLES OF DATA, 4 NIBBLES OF COMP 
645 ; 2072 |! - 9 9 NIBBLES OF DATA, 9 NIBBLES OF COMP 
646 ; 2073 -10 1024 NIBBLES OF DATA, 1024 NIBBLES OF COMP 
| 


VALUE OF 
DATA 


VALUE OF 
DATA 


— ot ot ot ooooo 


s+ 3 4 3 Le — ss — 4 


VALUE OF 


v 


abhutabated 
—— St st  OOOOO O&O 


ita at at ot a ed 
-—-— ew SC OOOO CO g 


_— 3) =. od oe 


VALUE OF 
COMP 


743 TOPS-20 Bliss-16 V2(206) 
5 PA: <ROSEND>MLX4.BLI.1 


(4) 


SEQ 0066 


[" 
[ C 6 
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| 649 :MLX4 23-Oct-1980 15:01:43  TOPS-20 Bliss-16 v2(206) 
e20 ; VARIABLES AND CONSTANTS 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (5) 
652 ; 2075 FIELD 
653 ; 2076 PATMAP = 
654 ; 2077 SET 
655 ; 2078 COUNT? = (0,0,16,0], 
656 ; 2079 COUNT2 = (1,0,16,0] 
657 ; 2080 ES; 
658 ; 2081 
659 ; 2082 
660 ; 2083 
661 ; 2084 GLOBAL 
662 ; 2085 PATTBL: BLOCKVECTOR CNUM_PATS/2,2] FIELD(PATMAP) 
663 ; 2086 PRESET ( 
664 ; 2087 [0,COUNT1) = ZDECIMAL'O' 'FOR PATTERNS 1, -1, 6, -6 
665 ; 2088 CO0,COUNT2) = ZDECIMAL' 1024". 
666 ; 2089 
667 ; 2090 C1,COUNT1) = ZDECIMAL'1' 'FOR PATTERNS 2, -2, 7, -7 
668 ; 2091 £1, COUNT2] = XDECIMAL'1' 
669 ; 2092 
670 ; 2093 (2,COUNT1) = ZDECIMAL'G' , 'FOR PATTERNS 3, -3, 8, -8 
671 ; 2094 C2, COUNT2) = ZDECIMAL'4' , 
672 ; 2095 
673 ; 2096 (3, COUNT1) = XDECIMAL'S’ =, 'FOR PATTERNS 4, -4, 9, -9 
674 ; 2097 (3, COUNT2) = XDECIMAL'9' 
675 : 2098 
676 : 2099 (4,COUNT1) = XDECIMAL'1024', ‘FOR PATTERNS 5, -5, 10, -10 
677 : 2100 (4, COUNT2] = ZDECIMAL'1024' 
678 ; 2101 ); 
679 : 2102 
680 ; 2103 
681 ; 2104 BIND 
682 ; 2105 
683 ; 2196 ' 
= ; sie ! DEFINITIONS OF LOCATIONS WITHIN THE WRITE AND READ BUFFERS: 
686 ; 2109 
687 ;: 2110 WOBUFF = WBUFF, '256-WORD WRITE DATA BUFFER 
688 : gilt WCBUFF = WBUFF + 512, 1256-WORD WRITE COMP BUFFER 
690 ;: 2113 RDBUFF = RBUFF, 1256-WORD READ DATA BUFFER 
691 ; the RCBUFF = RBUFF + 512, '256-WORD READ COMP BUFFER 
693 ; 2116 END_WBUFF = (WBUFF + BUFSIZ*2), !JUST BEYOND END OF FULL WRITE BUFFER 
6% ;: 2117 END_RBUFF = (RBUFF + BUFSIZ*2), 'JUST BEYOND END OF FULL READ BUFFER 


| 
| 
Nps 5 atl ete cra GRRE AE Na AI. 


— 


r a 


| 
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696 ;MLK4 23-0ct-1980 15:01:43 TOPS-20 Bliss-16 V2(206) 
p24 3 MESSAGES AND PRINT FORMATS 23-0ct-1980 14:57:05 PA: <ROSEND>MLX4.BLI.1 (6) 
699 ; 2118 XSBTTL ‘MESSAGES AND PRINT FORMATS‘ 

700 ; 2119 

701 ; 2120 ' 

702 ; 2121 ' SPECIAL PURPOSE FORMATS (WITH SAMPLE PRINTOUTS): 

703 ; 2122 ! 

704 ; 2123 

705 ; 2124 FMTIA = UPLIT(ZASCI2' ENZTRS2202" P 

706 ; 2125 '*PATTERN NUMBER XX' 

707 ; 2126 

708 ; 2127 FMT1IB = Coed * LS7RTAESLA-202') 

709 ; 2128 PATTERN NUMBER -XX'- 

710 ; 2129 

711; 2130 FMT2 UPLITCEASCIZ 4S2%T") ‘ 

712 ; 2131 NOT POWERED UP) 

713 ;: 2132 is (Nol AN NALA UNIT)" 

714; 2133 i* (OPERATOR SELECTED TEST LIMITS INCORRECTLY) ' 

715 ; 2134 '* (ALL RETRIES FAILED FOR A NON-FATAL ERROR)’ 

716 : 2135 '* (CONTROLLER FATAL ERROR)' 

717 ; 2136 '* (DRIVE FATAL ERROR)’ 

718 ; 2137 '* (ECC HARD ERROR)’ 

719 ; 2138 he . 

720 ; 2139 '* DOWN’ 

4h ; erat 1* <> RUN ML11 PROM MAINTENANCE PROGRAM’ 

723 ; 2142 FMT3 = UPLIT(ZASCIZ *ZNZA®*AZSATASATALD3LSLAee"), 

rs 3 ater '"ee END PASS X *#t' 

726 ; 2145 FMT4A = UPLIT(ZASCIZ" UN2ZTRA: Este ISHAGTEA: 4S%D1"), 

727 ;: 2146 '- ! "LOGICAL UNIT: X DRIVE: 

(28 ; 2147 

729 ; 2148 FMT4B = YRLITCEASCEE*ESASTEA: %$206"), 

730 ; 2149 SERIAL 2222212' 

eu 5 si is CSR ADRESS. YXXKK" 

733 ; 2152 FMT4C = UPLIT(ZASCIZ*ZS427RA: %SX01%D14D1%D1"), 

re 3 saz ! SERIAL #: DDDD' 

736 ; 2155 FMTS = UPLIT(%ASCIZ° AUNZTES3LASECTORS UNDER TEST: RSLOGRSZATORS%06' a; 
4 ; $138 '*'ML11-X SECTORS UNDER TEST: XXXXXX TO YYYYYY 

739 ; 2158 FMT6 = UPLIT(ZASCIZ" ZNXABEGAN %D42ZA WORDZSZTIA ATRS2TZS206" >. 
740 ; 2159 '"BEGAN YYYY WORD WRITE AT SECTOR 222272' 

741; 2160 '"BEGAN YYYY WORD READ AT SECTOR 222227' 

| 3 sie) i*BEGAN YYYY WORD WRITE CHECK AT SECTOR 222272" . 
744; 2163- FMT7 = oat ta EM ENZS2ZTRA: cont ), 

745 ; 2164 '* SOFT ERROR COUNT: DDDODD 

746 ; 2165. i* HARD ERROR COUNT: DDDDD' 

oa : gi66 i* TRANSFER RETRIES: DDDDD' 

749 ; 2168 FMT8 = UPLIT(ZASCIZ°ZNZATRANSFER RATE: XTX%A MBYTES/SECOND'), 
750 ; 2169 '* TRANSFER RATE: X MBYTES/SECOND' 


i 
| 
| 


SEQ 0068 





c--- 
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752 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
oe ; MESSAGES AND PRINT FORMATS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (6) 
755 ; 2170 
| 756 : 2171 FMTI9 = UPLIT CRASCIZ" INESGEAARRAYRD3ZA: 45205"), 
757 ; 2172 RRAY XX: YYYYY 
ce oar - 2173 
| 759 ; 2174 FMT10A = UPLIT(ZASCIZ' XNZTLA: XS2UTLSLO6LSZ2ZABOARD LD 3ZS2%ABANK2D2'), 
Ne 3 see '"FAILED: SECTOR XXXXXX BOARD YY BANK 7 
| 762 ; 2177 FMT10B = UPLIT(ZASCIZ'%S2ZAB1T%XD3'), 
763 ; 2178 '* BIT QQ' 
764 ; 2179 
765 ; 2180 FMT11 = UPLIT(ZASCIZ'ZNZTESZO6ZA EXCEEDS %T%S%06"), 
766 ; 2181 '*TOP SECTOR OF XXXXXX EXCEEDS SYSTEM LIMIT OF YYYYYY' 
44 ; sine '"LOW SECTOR OF XXXXXX EXCEEDS TOP SECTOR OF YyYyyY' 
769 ; 2184 FMT12A = UPLIT(ZASCIZ" ZNZAGOOD DATA: %06%A AT LOCATION %06'), 
rn ; 4H '"GOOD DATA: XXXXXX AT LOCATION YYYYYY 
772: 2187 FMT12B = UPLIT(ZASCIZ'ZNZABAD DATA: %06%A AT LOCATION %06'), 
dk, ; sles '"BAD DATA: XXXXXX AT LOCATION YYYYYY' 
775; 2190 FMT13 «= = -_UPLIT(XZASCIZ'ZNZAARRAYXD3%S22%T"), 
76 ; shal '"ARRAY XX ==> RUN ML11 PROM MAINTENANCE PROGRAM’ 
778 ; 2193 FMT14 = UPLIT(XASCIZ'SNZD5%S2T"), 
779 : 2194 '*XXXXX MBYTES WRITTEN’ 
780 ; 2195 '"\XXXX MBYTES READ’ 
781 ;: 2196 '"XXXXX MBYTES WRITE CHECKED' 
782 ; 2197 
783 ; 2198 FMT15 = UPLIT(SASCIZ" %S2%T"), 
(84; 2199 ECH 
785 ; 2200 i* WED' 
786 ; 2201 i (ANY OF THE ERROR BITS) 
787 ; 2202 
788 ; 2203 CRLF = UPLIT(ZASCIZ'%N'), 
789 ; 2204 
790 ; 2205 ' 
791 ;- 2206 ' MESSAGE MAPS: 
792 ; 2207 ! 
793 ; 2208 
794 ; 2209 SAY1 = UPLIT(ZASCIZ'XZNZT") 
795 : 2210 SAY2 = _- UPLIT(XASCIZ'X2NZTXS&T' )” 
796 ; 2211 SAY3 = -UPLIT(ZASCIZ" INgTESaTESdT"), 
797 ; 2212 SAY4 = UPLIT(XZASCIZUNXTXSLTRSLIZSET ' 
798 ; 2213 SAY5 = UPLIT(XASCIZ' INETESKTESRTeSETRSET S 
799 ; 2214 
800 ; 2215 ' 
801 ; 2216 ' WORDS 
802 ; 2217 ! 
803 ; 2218 
804 ; 2219 WRD2 = UPLIT(ZASCIZ"BEGIN'), 
805 ; 2220 WRD3 = UPLIT(ZASCIZ°END'), 
806 ; 2221 WRDG = UPLIT(ZASCIZ°PASS'), 


SEQ 0069 





MLX3 MACRO M1113 

LSAU ADD UNIT SECTION 
808 ;MLX4 
809 ; 
810 
811; 222 
812 ; 222 
813; 222 
814 ;: 222 
815 ; 222 
816 ; 222 
817 ; 222 
818 ; 222 
819 : 223 
820 ; 223 
821; 223. 
822 ; 223 
823 ; 2234 
824 ; 223 
825 ; 223 
826 ;: 223 
827 ; 2238 
828 ; 2239 
829 ; 2240 
830 ; 2241 
831 ; 2242 
832 ; 2243 
833 ; 2244 
834 ; 2245 
835 ; 224 
836 ; 224 
837 ; 2248 
838 ; 2249 
839 ;: 2250 
640 ; 2251 
841 ; 2252 
842 ; 2253 
843 ; 2254 
844 ; 2255 
845 ; 2256 
846 ; 2257 
847 ;: 2258 
848 ; 2259 
849 ; 2260 
850 ; 2261 
851 ; 2262 
852 ; 2263 
853; 2264 
854 ; 2265 
855 ; 2266 
856 ; 2267 
857 ;: 2268 
858 ; 2269 
859 ; 2270 
860 ; 2271 
861 ; 2272 
862 ; 2273 


24-OCT-80 09:59 PAGE 104 


MESSAGES AND PRINT FORMATS 


~ 
mn 


UPLIT(ZASCIZ'ML11-A'), 
UPLIT(ZASCIZ'°ML11-B'), 
UPLIT(ZASCIZ'DRIVE'), 
UPLIT(ZASCIZ*SECTOR'), 
UPLIT(ZASCIZ‘WRITE'), 
UPLIT(ZASCIZ'READ'), 
UPLIT(ZASCIZ'RETRY'), 
UPLIT(ZASCIZ"SUCCEEDED'), 
UPLIT(ZASCIZ*FAILED'), 
UPLIT(ZASCIZ'DROPPED') 
UPLIT(ZASCIZ* UP") , 
UPLIT(ZASCIZ'DOWN"), 
UPLIT(ZASCIZ*RUNNING'), 
UPLIT(ZASCIZ "MARCHING 
UPLIT(ZASCIZ*ENABLED'), 
UPLIT(ZASCIZ'DISABLED'), 
UPLIT(ZASCIZ'ECC’), 
UPLIT(ZASCIZ‘WITH'), 
UPLIT(ZASCIZ'AND"), 
UPLIT(ZASCIZ'NED'), 
UPLIT(ZASCIZ"NEM'), 
UPLIT(ZASCIZ'PGE'), 
UPLIT(ZASCIZ‘DLT'), 
UPLIT(ZASCIZ°WCE'), 
UPLIT(ZASCIZ'PE'), 
UPLIT(ZASCIZ'MXF'), 
UPLIT(ZASCIZ'MDPE'), 
UPLIT(ZASCIZ'MCPE'), 
UPLIT(ZASCIZ‘UNS'), 
UPLIT(ZASCIZ"IAE'), 
UPLIT(ZASCIZ'AOE*), 
UPLIT(ZASCIZ'RMR'), 
UPLIT(ZASCIZ'ILR'), 
UPLIT(ZASCIZ*ILF'), 
UPLIT(ZASCIZ‘OPI"), 
UPLIT(ZASCIZ'DPAR'), 
UPLIT(ZASCIZ'°CPAR'), 
UPLIT(ZASCIZ‘DCK'), 
UPLIT(ZASCIZ°ECH'), 
UPLIT(ZASCIZ'CRC'), 
UPLIT(ZASCIZ'SGL'), 
UPLIT(ZASCIZ°UNC'), 


SEQ 0070 


TOPS=20 Bliss-16 V2(206) 
PA: <ROSERD>MLX4.BLI.1 (6) 
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‘LSAU ADD UNIT SECTION SEQ 0071 
| 864 :MLX4 33-Oct-1980 15:01:43  TOPS=20 Bliss-16 v2(206) 
865 : = = MESSAGES AND PRINT FORMATS 23-0ct-1980 14:57:05  PA:<ROSEND>MLX4.BLI.1 (6) 


74 ROUTINE NAMES: 


D INTEGRITY ROUTINE"), 


876 : ’ 
877 : 5, !RANDOM DATA 
878 : RTN5B UPLIT(X%AS ND2'), ‘DATA & WORD COUNTS 
879 : RTNSC UPLIT(Z%AS AND3 , iDATA, WORD COUNTS & SECTORS 
881 : , 
882 : 
883 : 290 
884 : 2291 i PHRASES 

| 

| 


@ 

— 

z 

> 
nnnnnnnnun 

Cc 

wv 

- 
be ht be be be ee 

> 

wn 
AOQAIOOOAOOAaNY 


!DATA, WORD COUNTS, SECTORS & UNITS 


UPLIT(ZAS 
UPLIT(ZAS 
UPLIT (AS 
UPLIT(ZAS 
UPLIT(ZAS 
UPLIT(ZAS 
UPLIT(ZAS 
UPLI 


ITE CHECK"), 

ICK VERIFY*), 
FRESH MARGINING'), 
ADDRESS"), 

T ERROR COUNT’) 
ANSFER ~ he ad ) 
GICAL Dat 

RIAL #'), 

ATTERN NUMBER" ) 


}, 
C SET BUT NO SYSTEM ERRORS FOUND"), 
UMBER OF MBYTES TRANSFERED:*), 
MBYTES WRITE -whpmeagale " 
TOP SECTOR OF" 


MOoODoOuUMC wD 
“DD 


ZAS 


BVSVNO Seozes 
z 
oO 
z= 
wo 
-_ 
~ 
(7) 
nn 
m 
= 


HOAIOOOOAOOAILY 


te Pet De be Be Dw ba bt an as me Ba me mn Be Se Be be Bt 


LOW SECTOR OF' )* 
SYSTEM LIMIT OF 
PERFORMANCE sunny ), 
HARD ERROR COUNT’ 
MBYTES WRITTEN") 
MBYTES READ'), 


—~m 

Ww 

Oo 

Ww 

v 

= 

»D 

— 

Oo 
nhnnnnnnhnnnnnhnnnnnnn 

Cc 

Uv 

La 
ee «© @ eeeee@eeee#see#s#s#see#seeses#see#s# 


NS NS NS i EP BP 


T( 
T¢ 
T¢ 
T¢ 
T¢ 
T( 
T¢ 
T( 
T¢ 
T¢ 
T( 
TC 
T(RA 


UPL 
UPL 
UPL 
UPL 


_ 
= 
~_ 
Oo 
— 
nun 
as be a 


— ‘ s 
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920 ;MLX4 23-Oct-1980 15:01:43 TOPS-20 Bliss-16 V2(206) 
3s) ; MESSAGES AND PRINT FORMATS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (6) 
923 2326 ' DROP MESSAGES: 
924 2327 : 
925 2328 . 
926 2329 CAUSE1 = UPLIT(ZASCIZ"(NOT POWERED UP)'), 
927 2330 CAUSE2 = UPLIT(ZASCIZ'(NOT AN ML11 UNIT)" 
928 2331 CAUSES = UPLIT(ZASCIZ* (OPERATOR SELECTED tést LIMITS INCORRECTLY)'), 
929 2332 CAUSES = UPLIT(ZASCIZ'(ALL RETRIES FAILED FOR A NON-FATAL ERROR)'), 
930 2333 CAUSES = UPLIT(ZASCIZ* (CONTROLLER FATAL cr papell 
931 2334 CAUSE6 = UPLIT(ZASCIZ' (DRIVE FATAL ERROR) ') 
2335 CAUSE7 = UPLIT(ZASCIZ'(ECC HARD ERROR)'), 
$338 CAUSES = UPLIT(ZASCIZ' (ECC LOGIC FAILURE)"), 
2338 : 
2339 ! DIAGNOSES: 
937 2340 ; 
938 2341 
939 2342 MSGO = UPLIT(ZASCIZ* INTERRUPT DID NOT OCCUR, — THE TRANSFER IS COMPLETE"), 
940 234 MSG1 = UPLIT(ZASCIZ'=-> RUN ML11 LOGIC TEST 
941 2344 MSG2 = UPLIT(ZASCIZ'--> RUN 3}. boot MAINTENANCE PROGRAM'), 
942 2345 MSG3 = UPLIT(ZASCIZ*SOFT ERROR) 
943 2346 MSG4 = UPLIT(ZASCIZ*HARD ERROR’) 
oe tots MSG5 = UPLIT(ZASCIZ°ECC LOGIC FAILED TO DETECT DATA ERROR"); 


wononovono 
WAnWAW 
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947 MLKG 23-Oct-1980 15:01:4 
948 ; ML11 INTERRUPT SERVICE ROUTINE 23-0ct-1980 14:57:0 


ZSBTTL ‘ML11 INTERRUPT SERVICE ROUTINE’ 
BGNSRV (SERVICE) 

1_AM_DONE = ACTIVE; 

ENDSRV 

961 ~TITLE MLX4 


3 
5 


TOPS=-20 Bliss-16 v2(206) 


PA: <ROSENDMLX4.BLI. 


1 (7) 


SEQ 0073 


MLXKG 


i SOS Eo ee 
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WBUFF: .BLKW 
RBUFF: .BLKW 
WPTR: -BLKW 
RPTR: -BLKW 
QUICK: .BLKW 
PATTERN: .BLKW 
DATA. COUNT: 


-BLKW 
COMP. COUNT: 

-BLKW 
EOP. COUNT: 

BLKW 


BASE .ADDR: 

-BLK 
EC: -BLKW 
BR.LEVEL: 

BLK 
SOFTS: .BLKW 
HARDS: BLKw 
TRIES: BLKW 
WR. COUNT 


-BLKW 
WR. THOUSANDS : 


SEQ 0074 
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1619 sMLX4 23-Oct-1980 15:01: 
1o59 : ML11 INTERRUPT SERVICE ROUTINE 23-0ct-1980 14:57: 
1622 032334 -—BLKW 1 
1623 032336 WR.MILLIONS: 

1624 032336 -BLK 1 
1625 03234C RD. COUNT: 

1626 032340 -BLKW 1 
1627 032342 RD. THOUSANDS : 

1628 032342 -BLKW 1 
1629 032344 RD.MILLIONS: 

1630 032344 -BLKW 1 
1631 032346 WC. COUNT: 

1632 032346 -—BLKW 1 
1633 032350 WC. THOUSANDS: 

1634 032350 -BLKwW 1 
1635 032352 WC .MILLIONS: 

1636 032352 -BLK 1 
1637 032354 1.AM.DONE: 

1638 032354 -BLKW 1 
1639 032356 RETRYING: 

1640 032356 -—BLKW 1 
1641 032360 BOARD: .BLKW 1 
1642 032362 BANK : -BLKwW 1 
1643 

1644 

1645 

1646 03236 ML.REG::.BLKW 26 
1647 032440 PTABLE.ADDR:: 

1648 032440 -BLKW 10 
1649 032460 DRIVE.STATUS:: 
1650 032460 -BLKB 1 
1051 EVEN 

1652 032462 DROPT.DRIVES:: 

+ 34 032462 -BLKB 1 
1654 : .EVEN 

1655 032464 WHY .DROPT: : 

1656 0324 -BLKW 4 
1657 032474 NUM.DRIVES:: 

1658 032474 -BLK 1 
1659 032476 LOW.SECT:: 

1660 032476 -BLKW 10 
1661 032516 TOP.SECT:: 

1662 032516 -—BLKW 10 
1663 032536 000000 PATTBL::.WORD 0 
1664 032540 002000 «WORD 2000 
1665 032542 000: WORD 1 
1666 032544 1 WORD 1 
1667 032546 000004 WORD 4 
1668 032550 000 WORD 4 
1669 032552 000011 WORD 11 
1670 032554 000011 WORD 11 
1671 032556 0020 WORD 2000 
1672 032560 002000 WORD 2000 


¢ 
i 
| 
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LSAU ADD UNIT SECTION SEQ 0076 
| 1674 sMLX4 23-0ct-1980 15:01:43 TOPS 

1675 : ML11 INTERRUPT SERVICE ROUTINE 23-0ct-1980 14:57:05 PA:< 

1677 

1678 

1679 .GLOBL LSUNIT, LSLUN, LIMIT, RANGE, LSECT \ 

1680 -GLOBL TSECT, ONLY, DROPNE, DROP1, DROP2 

1681 “GLOBL DROP3, DROPG, DROPS, MARPAT, REFRESH 

1682 “GLOBL ECCDI$, EOPSUM, ERROUT , see 

1683 “GLOBL SEED2, SEED3, RANDOM, 

1684 

1685 

1686 100000 BIT15== -100000 

1687 040000 BIT14== 40000 

1688 020000 BIT13== 20000 

1689 010000 BITi2== 10000 

6 004000 BIT11== 000 

1691 002000 BIT10== 2000 

1692 001000 BIT09== 1000 

1693 000400 B1T08== 400 

1694 000200 BIT07== 200 

1695 000100 B1T06== 100 

1696 000040 BIT05== 40 

1697 000020 B1T04== 20 

1698 000010 RITO3== 10 

000004 B1T02== 4 

1700 000002 BITO1== 2 

1701 000001 B1T00== 1 

1702 001000 BIT9== 1000 

1703 000400 BIT8== 400 

1704 000200 BIT7== 200 

1705 000100 BIT6== 100 

1/06 00004 BITS== 40 

1707 000020 bi 4es 20 

1708 000010 6,138 10 

1709 000004 BlT2== 4 

1710 000002 BITi== 2 

1711 000001 BITO== 1 

1712 000040 EF .START== 40 

1713 000037 EF RESTART== 37 

1714 000036 EF . CONTINUE == 36 

1715 35 EF .NEW== 35 

1716 34 EF .PWR== 34 

1717 340 PRIO7== 340 

1718 000300 PRI06== 300 

1719 0002406 PRIOS== 240 

1720 0200 PRI04== 200 

1721 000140 PRIO3== 140 

1722 100 PRIO2== 100 

1723 0040 PRIO1== 40 

1724 000000 PRIOO== 0 

1725 EVL== 4 

1726 10 LOT== 10 

1727 000020 ADR== 20 

1728 000040 IDU== 40 


c— 


MLX4 
LSAU ADD UNIT SECTION 

1730 

1731 

1732 

1733 000100 
1734 000200 
1735 000400 
1736 001000 
1737 002000 
1738 - 004000 
1739 010000 
1740 020000 
1741 040000 
1742 100000 
1743 010706 
1744 011706 
1745 020706 
1746 021706 
1747 020706 
1748 030706 
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sMLX4 


END. RBUF F = 


ML11 INTERRUPT SERVICE ROUTINE 


WBUF 
WBUF F +1000 
RBUF F 
RBUF F +1000 


WBUF F #10000 
RBUF F +10000 


23-0ct-1980 1 
23-0ct-1980 1 


5:01 
4:57 


SEQ 0077 
743 TOPS 
:05 PA:< 


ee ' : ee 
ae MACRO ht 24-OCT-80 09:59 PAGE 123 


— ADD UNIT SECT SEQ 0078 
1878 
1879 
Hy + -SBTTL SERVICE ML11 INTERRUPT SERVICE ROUTINE 
1885 032562 SERVICE:: 
1886 032562 012737 000001 032354 MOV #1,1.AM. DONE 3 2353 
rt 032570 000002 RTI Z 2351 
1889 3; Routine Size: 4 words 
ib 2 + Maximum stack depth per invocation: 0 words 
1896 


7 


23-Oct-1980 15: 39}: 


74 ( 
23-0ct-1980 14:57:0 PA: <ROSEN>MLX4 .BLI.1 


EVEN IF A UNIT WAS DROPPED DURING A PREVIOUS 
RUN, THE START OR RESTART COMMAND GUARANTEES 
THAT THE DRIVE WILL ONCE AGAIN BE TESTABLE. 


LKG MACRO M1113 24-OCT-80 09:59 PAGE 124 
SERVICE ML11 INTERRUPT SERVICE ROUTINE 
1898 ;MLKG 
24 ; ONCE-ONLY CODE 
1901 ; 2356 &SBTTL ‘ONCE-ONLY CODE’ 
1902 ; 2357 
1903 ; 2358 ROUTINE CLRTBLS: NOVALUE = 
1904 ; 2359 BEGIN !* 1 * 
1905 ; 2360 
1906 ; 2361 44 
1907 ; 2362 |! ROUTINE: CLRTBLS 
1908 ; 2363 =! 
1909 ; 2364 |! PURPOSE: THIS ROUTINE IS CALLED BY THE INITIALIZATION CODE WHEN 
1910 ; 2365 =! A ‘START’ OR ‘RESTART’ COMMAND HAS BEEN USED TO BEGIN 
m3 4 $308 THE PROGRAM. THE PURPOSES OF THE ROUTINE ARE: 
bat 3 Saco (1) TO INITIALIZE STATISTICS TABLES 
1915 ; 2370 |! (2) TO SET ALL DRIVE AND ARRAY STATUS LOCATIONS TO ACTIVE 
1916 ; 2371 =! NOTE: 
1917 ; 2372 =! 
1918 ; 2373 =|! 
1919 ; 2374 =! 
1920 ; 2375—! (3) TO ENABLE THE RUNNING OF a — OPTIONS IF THE 
1921 ; 2376 =! OPERATOR WANTED THEM ALL TO R 
1922 ; 2277) SN == 
1923 ; 2378 
1926 ; 2379 '¢ 
1925 ; 2380 'THIS IS THE CODE FOR PURPOSE 1: 
1926 ; 2381 le 
1927 ; 2382 
1928 ; 2383 INCR LUN FROM 0 TO ‘.LSUNIT - 1) DO 
1929 ; 2384 BEGIN 
1930 ; 2385 INCR ARRAY FROM 0 TO 15 DO 
1931 ; 2386 BEGIN 
1932 ; 2387 SOF TSC.LUN, .ARRAY,0,16,0) = 0; 
1933 ; 2388 HARDSC.LUN, .ARRAY,0,16,0] = 0; 
1934 ; 2389 TRIESC.LUN, .ARRAY,0,16,0) = 0; 
1935 ; 2390 END; 
1936 ; 2391 END; 
1937 ; 2392 
1938 ; 2393 EOP_COUNT = 0; 
1939 : 2394 NUM DRIVES = 0; 
1940 ; 2395 RETRYING = INACTIVE; 
1941 ; 2396 
1942 ; 2397 WR_COUNT = 0; 
1943 ; 2398 WR- THOUSANDS. = 0; 
1944 ; 2399 WR “MILLIONS = 0; 
1945 ; 2400 
1946 ; 2401 RD_COUNT = 0; 
1947 ; 2402 RD- THOUSANDS = 0; 
1948 ; 2403 RD “MILLIONS = 0; 
1949 ; 2404 
1950 ;: 2405 WC_COUNT = 0; 
1951 ; 2406 wWC_ “THOUSANDS = 0; 
1952 ; 2407 we “MILLIONS = 0; 


; TOPS-20 Bliss-16 V2 it + 


SEQ 0079 


2 | 


ws. 


MILKS 
“SERVICE 


1954 :MLX4 
1955 ; 
1956 

1957 ; 
1958 : 
1959 ; 
1960 ; 


3 SSSSZSEREZERE 


ooono 
NAO 
ooon 


kk ed ed ed dd od 
~ 
a" 


1974 ; 
975 : 


1 
1996 032572 
1997 032576 


2007 032624 
2008 032626 


MACRO M1113 24-OCT-80 09:59 PAGE 125 
ML11 INTERRUPT SERVICE ROUTINE 


060102 
006302 


23-Oct-19 
ONCE-ONLY CODE 23-0ct-19 
'¢ 
‘THIS 1S THE CODE FOR PURPOSE 2: 
INCR LUN FROM 0 TO (.LSUNIT = 1) DO 
BEGIN !* 2 
L$ = .LUN; 
LOW_SECTC.LUN) = 0; 
DRIVE_STATUSC.LUN] = ACTIVE; 
DROPT DRIVESC.LUN] = INACTIVE; 
WHY_DROPTC.LUN] = 0; 
ND; 'e 2 
'4 
‘THIS 1S THE CODE FOR PURPOSE 3: 
IF .DROPNE EQL 0 
THEN 
BEGIN !* 3 * 
DROP1 = 0; 
DROP2 = 0; 
DROPS = 0; 
DROPS = 0; 
DROPS = 0; 
END; 'e 3 
RETURN; 
6 
END; ‘!*# 1 
.SBTTL CLRTBLS ONCE-ONLY CODE 
005202 CLRTBLS:JSR R1,$SAVE4 
002012 MOV LSUNIT,R4 
CLR R3 
BR 3$ 
1$: MOV R3,R0 
ASL RO 
ASL RO 
ASL RO 
ASL RO 
CLR R1 
2$: MOV RO,R2 
ADD R1,R2 
ASL 


5:01:4 
4:57:0 


; LUN,* 


; ARRAY 


> ARRAY,* 


3 TOPS=20 Bliss-16 V2(206) 
5 PA: <ROSEN>MLX4.BLI1.1 


SEQ 0080 


2358 
2383 


2387 


2385 
2387 


—Yy 


“= 


cr 


LX 


~ 
oO 
= 
oO 


Mronrnrrvrvnrr 
~ 
OONA WILE Ww — 


206 064 
2064 033070 


001012 


032352 


002074 


032476 


032460 


177770 
000001 


004502 
032462 


177770 
000001 


004502 


032464 
000016 


002234 
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\CLRTBLS ONCE-ONLY C 


3MLX4 


3$: 


4$: 


5$: 


ONCE-ONLY CODE 


SOF TS(R2) 
HARDS(R2) 
TRIES(R2) 


R1 
R1,#17 
2$ 

R3 
R3,R4 
1$ 

EOP. COUNT 


NUM.DRIVES 
~ yeh 


WR. COUNT 
UR. THOUSANDS 
WR-MILL IONS 


- COUNT 
RD. THOUSANDS 
RD.MILLIONS 
wC.COUNT 
WC. THOUSANDS 
WC .MILLIONS 


R2,L$LUN 
R2,R1 


R1 
LOW.SECT(R1) 
R2,R1 


R1 
R1 


R1,-(SP) 
WORIVE STATUS, (SP) 


R2 ) 
ai F7170, (SP) 


R1, (SP) 
#DROPT DRIVES, (SP) 


SP 
niF7770, (SP) 


PC ,BLSPU2 


WHY .DROPT(R2) 
#16 


e 


R 
R2,R4 
DROPNE 
6% 


SEQ 0081 
23-Oct-1980 15:01:43 TOPS 
23-0ct-1980 14:57:05 PA:< 

2388 
2389 
ARRAY 2385 
ARRAY, * 
LUN 2383 
LUN,* 
2393 
2394 
2395 
2397 
2398 
2399 
2401 
2402 
2403 
2405 
2406 
2407 
LUN 2413 
LUN,* 2415 
LUN, * 2416 
LUN,* 2417 
LUN,* 
2418 
LUN,* 
* (LUN) 2419 
2414 
LUN 2413 
LUN,* 
2426 


o 2 
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aches ONCE-ONLY C 


2066 
2067 


| 


_ 


2068 
2069 033072 ota t dh 


0 
16 000207 


002236 


002250 


sMLX4 
3 ONCE-ONLY CODE 
CLR DROP 1 
CLR DROP2 
CLR DROP3 
CLR DROPS 
CLR DROPS 
6$: RTS PC 


; Routine Size: 107 words 


3; Maximum stack depth per invocation: 


12 words 


SEQ 0082 


23-0ct-1980 15:01:43 
23-0¢t-1980 14:57:05 


2471 BR_LEVEL 
2472 PRIORITY 


2474 IF .ECCDIS 


-(.PLOC + 4); 


= 7({PLOC + 2): 
= [BR_LEVEL*S:; 


oO 
SCOOBNOUSWN—OO®W NOARWN=oSeNen 


WWW NIAID PONINO PON NPONUNOPY 2 2 A Ot OO en em HM OOO 
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CLRTBLS ONCE-ONLY CODE SEQ 0083 
2085 ;MLX4 23-Oct-1980 15:01:43  TOPS-20 Bliss-16 V2(206) 
soee $ ONCE-ONLY CODE 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (9) 
 ~—s- 2088 ; 2439 ROUTINE INIT_ADDRESSES(PLOC): NOVALUE = 
089 : 5440 BEGIN !* 1 # 
| 2090 ° 2441 
2091 ; 2442 44 
| 2092 ; 2443 | ROUTINE: INIT_ADDRESSES(PLOC) 
| 20933 2444 =! 
2094 ; 2445 |! PURPOSE: THIS ROUTINE IS CALLED ONLY ONCE DURING THE INITIALIZATION 
2095 ; 2446 =! CODE, EVEN IF THERE IS MORE THAN ONE DRIVE PRESENT. THE 
2096 ; 2447 |! PURPOSES OF THE ROUTINE ARE: 
2097 ; 2448 =! 
2098 ; 2449 =! (1) TO OBTAIN HARDWARE P-TABLE INFORMATION FROM 
444 3 seey MAIN MEMORY WHICH PERTAINS TO ALL DRIVES. 
$443 ; oie (2) TO SET UP THE ADDRESSES FOR THE 22 ML-11 REGISTERS. 
2103 ; 2454 ! (3) TO SET UP THE INTERRUPT SERVICE ROUTINE AT THE 
04 ; 2455! CORRECT PRIORITY, AND LOWER THE CPU PRIORITY TO 
; $138 ALLOW INTERRUPTS TO OCCUR. 
; 2458 |! ARGUMENT: PLOC = THE POINTER TO THE LOCATION IN MAIN MEMORY WHERE 
; 2459 =! THE HARDWARE P-TABLE IS TO BE FOUND. 
s 2460 !-- 
: 2461 
; 2462 LOCAL 
3 2463 TEMP, PRIORITY, OFFSET; 
; 2464 
g 2465 '¢ 
; 2466 'THIS IS THE CODE FOR PURPOSE 1: 
5 2467 te 
‘ 2468 
; 2469 BASE_ADDR = .(.PLOC + 0); 
; 2470 VEC 


POPIPIPONIHIMIPIAPDNPY NONYNININPI NIN NIP PIPERS NMP NONI PoP NM PPO PoP 
kk ee ek ek ek kk kk ad tk a os od 


2475 THEN TEMP = WRD37 'ECC IS DISABLED 
ore ELSE TEMP = WRD36; 'ECC IS ENABLED (NORMAL OPERATION) 
2478 PRINTB(CRLF); 
2479 PRINTB(SAYS,WRD34,WRD40,WRD38,. TEMP, WRD41); 
seat '*RUNNING WITH ECC ENABLED/DISABLED AND‘ 
1 2482 IF .REFRESH 
2 2483 THEN TEMP = WRD36 ‘REFRESH MARGINING IS ENABLED 
; Stas ELSE TEMP = WRD37; ‘REFRESH MARGINING IS DISABLED (NORMAL OPERATION) 
5 2486 PRINTB(SAY3,WRD4O,PHR3,.TEMP); 
36 2487 '*WITH REFRESH MARGINING FNABLED/DISABLED' 
37 2488 PRINTB(CRLF); 
38 2489 
39 2490 '¢ 
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MLXG 
‘CLRTBLS ONCE-ONLY CO 


THIS 1S THE CODE FOR PURPOSE 2: 


] 
SE 


2496 INCR COUNT FROM 0 TO (NUM_REGS - 1) DO 
BEGIN !*2* 

,BASE ADDR + .OFFSET; 

* £5 


'¢ 
- THIS IS THE CODE FOR PURPOSE 3: 


.S 
INIT . ADDRESSES: 


07 SETVEC(.VEC,SERVICE,.PRIORITY); 


BITL 


2141 5 MLKG 

sie . eee 6 6C¢CU. aE! lee 
2144 ; 2491 

2145 ; 2492 

2146 2493 

2147 ; 2494 OFFSET = 0; 
2148 ; 2495 

2149 ; 

2150 ; 2497 ! 
2151 ; 2498 ML_REGC. COUNT 
2152 ; 2499 OFFSET = .OFF 
2153 ; 2500 END; 'e 2 
2154 ; 2501 

2155 ; 2502 

2156 ; 2503 

2157 ; 2504 

2158 ; 2505 

2159 ; 2506 SETPRI(PRIOO); 
2160 ; 25 

2161 ; 2508 

2162 ; 2509 RETURN; 

2163 ; 2510 

2164 ; 2511 +END; ‘e 1 « 
2168 

2169 

2173 033120 

#2174 033120 004137 005202 

2175 033124 016602 000014 

2176 033130 011237 03072 

2177 033134 016237 000002 030726 
2178 033142 016237 000004 030730 
2179 033150 013746 0307 

2180 033154 012746 000005 

2181 033160 737 005102 

2182 033164 010003 

2183 033166 032737 000001 002254 
2184 033174 001403 

2185 033176 012701 007022 

2186 033202 000402 

2187 033206 01.701 007012 

2188 033210 012716 006510 

2185 033214 012746 000001 

2190 033220 010600 

2191 033222 104414 

2192 033224 012716 007046 

2193 033230 010146 

2194 033232 012746 007034 

2195 033236 012746 007040 


INIT.ADDRESSES ONCE-ONLY CODE 


R1,$SAVE4 
14(SP) ,R2 

(R2) ,BASE.ADDR 
2(R2), VEC 
4(R2),BR.LEVEL 
BR.LEVEL,-(SP) 
#5,-(SP) 

PC ,BLSSHF 


RO,R3 
#1,ECCDIS 
#WRD37,R1 
2$ 
#WRD36,R1 


#CRLF, (SP) 
#1,-(SP) 


a 


14 
ee ah 


#WRD4O,-(SP) 


TOPS=-20 Bliss-16 V2(206) 


43 
7:57:05 ____ PA: <ROSEN>MLX4.BLI.1 (9) 


+ PLOC,* 


; *,PRIORITY 


3; *, TEMP 
: *, TEMP 


; 


“SEQ 0084 


nnn ttt ttt ttt _ 
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INIT.ADDRESSES ONCE-ONLY CODE 


~Nm 
— 
oo 
on 


oOoooCooo 
SESSRSESLS3 
ooo 
WAWWWWw 
WAWAWw 
MROPOPOPOPoOr~or 
NakeS w 
mor 

Snot Ponan 
mr 

~“ = 

So 

ue = 


— 4 ss 


33312 


VOSS SU SEU OODOOOOOO OD 
-—O 0M NOanran=oSe 
ooooo 


MNMVNMMNMMVNMMNMNMNMrNNNNMrlwrnrnrnrrrrTr 
NR 3 2s 


34 000207 


006766 
006574 
000006 
000001 
007012 
007022 
007370 


000004 


006510 
000001 


030724 


032364 
000002 


000025 


032562 
030726 
000003 


000042 


002252 


3$: 
4$: 


5$: 


LX4 


Routine Size: : 
; Maximum stack depth per invocation: 


ONCE-ONLY CODE 
#WRD34,-(SP) 
#SAYS ,<(SP) 
#6,-(SP) 

SP,RO 

14 

#1, REFRESH 
#WRD36,R1 

4$ 


#WRD37,R1 


BASE .ADDR,R4 
R2,R4 
R4,ML.REG(R1) 
#2,R2 


° 


, (SP) 
#SERVICE ,-(SP) 
VEC, -(SP) 
#3,-(SP) 

37 
#42,SP 
PC 


103 words 


2? words 


SEQ 0085 


23-Oct-1980 15:01:43 
23-Oct-1980 14:57:05 


$+." 


*, TEMP 


* , TEMP 
TEMP,* 


; SP,* 


SP,* 


OFFSET 
COUNT 
COUNT ,* 


OFFSET,* 
* OFFSET 


COUNT 
COUNT,* 


; PRIORITY,* 


2439 
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INIT.ADDRESSES ONCE-ONLY COD 
2251 sMLX4 23-0 t-1980 15:01:43 
| $036 ; DRIVE IDENTIFICATION ROUTINES 23-0 t-1980 14:57:05 
303% ; 2512 MSBITL ‘DRIVE IDENTIFICATION ROUTINES’ 
«2256 2514 ROUTINE SAYWHO(LUN): NOVALUE = 
2257 : 2515 BEGIN 
| 9958: 5516 
| 2259; 2517! 46 
2260 : 2518 | ROUTINE: SAYWHO (LUN) 
| 5561 : 5519 i 
2262 ; 2520 | PURPOSE: TO PRINT OUT AN IDENTIFICATION LINE WHICH INCLUDES: 
| $263 ; 2321 LOGICAL UNIT: X DRIVE: Y SERIAL #: 2222 
2265 : 2523 |! THE UNIT'S SERIAL NUMBER IN EITHER BCD OR OCTAL FORMAT. 
2266 ; 2526 =! BCD WILL BE PRINTED AS LONG AS THE DIGITS ARE ALL VALID. 
2267 ; 2525 lee 
2268 ; 2526 
2269 : 2527 
2270 : 2528 LOCAL 
2271 : 2529 D3,D2,D1400; 
2272 : 2530 
2273: 2531 
2274 ; 2532 D3 = .SN3; 
2275 : 2533 D2 = .SN2; . 
2276 : 2534 D1 = .SNI: 
2277 : 2535 DO = .SNO; 
2278 : 2536 
2279 : 2537 PRINTB(FMTGA,PHR7,.LUN,WRD11, -DRIVE) 
2280 ; 2538 '"LOGICAL UNIT: X — DRIVE: 
2281 ;: 2539 
2282 : 2540 IF ((.D3 GTR 9) OR (.D2 GTR 9) OR (.D1 GTR 9) OR (.D0 GTR 9)? 
2283 : 2541 THEN PRINTB(FMT4B, PHRS, .MLSN) 
2284 : 2542 ERIAL #: 222222' 
2285 ; 2543 ELSE PRINTBCERTS PHRB,.D3,.D2,.D1,.D0); 
2286 : (2544 SERIAL #: DODD 
2287 : 2545 
2288 : 2546 RETURN: 
2289 ; 2547 
344 3 2548 END; 
2295 .SBTTL SAYWHO DRIVE IDENTIFICATION ROUTINES 
2299 033436 004137 005222 SAYWHO: JSR R1,$SAVES ; 
2300 033442 017705 176746 MOV ML .REG+30,R5 > *,03 
2301 033446 006205 ASR RS > 03 
2302 033450 006205 ASR R5 : D3 
2303 033452 006205 ASR RS > 03 
2304 033454 006205 ASR RS > D3 
2305 033456 000305 SWAB RS : D3 
| 


SEQ 0086 


TOPS=-20 Bliss-16 V2(206) 
PA:<ROSENDML44.BLI.1 (10) 


cc -—- 
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SAYWHO DRIVE IDENTIFICATION ROUTINES SEQ 0087 
| 2307 SMLXG 23-0ct-1980 15:01:43 TOPS 
$e06 ar DRIVE IDENTIFICATION ROUTINES 23-0ct-1980 14:57:05 PA:< 

2310 033460 042705 177760 BIC #177760,R5 3 *,03 

2311 033464 017704 176724 MOV AML .REG+30,R4 > *,D2 2533 

2312 033470 000304 SWAB RG : 2 

2313 033472 042704 177760 BIC #177760,R4 3 *,D2 

2314 033476 117701 176712 MOVB @ML .REG+30,R1 3 *,D1 2534 

2315 033502 006201 ASR R1 : pi 

2316 033504 006201 ASR R1 > D1. 

2317 033506 006201 ASR R1 : D1 

2318 033510 006201 ASR R1 : D1 

2319 033512 042701 177760 BIC #177760,R1 ; *,D1 

2320 033516 117702 176672 MOVB  a@ML.REG+30,R2 > *,D0 2535 

2321 033522 042702 177760 BIC #177760,R2 > #.00 

2322 033526 016603 000016 MOV 16(SP),R3 > LUN,* 2537 

2323 033532 303 ASL R3 

2324 033534 016303 032440 MOV PTABLE .ADDR(R3) ,R3 

2325 033540 016346 000006 MOV 6(R3) ,-(SP) 

2326 033544 012746 006662 MOV #WRD11,-(SP) 

2327 033550 016046 000022 MOV 22(SP) ,-(SP) : LUN,* 

2328 033554 012746 007472 MOV #PHR7,-(SP) 

2329 033560 012746 005640 MOV #FMTGA,-(SP) 

2330 033564 012746 000005 MOV #5,-(SP) 

2331 033570 0106 MOV ; : 3P,* 

2332 033572 104414 TRAP 

2333 033574 020527 000011 CMP R5,#11 : D3,* 2540 

2334 033600 003011 BGT | 

2335 033602 020427 000011 CMP R4 #11 : D2.* 

2336 033606 003006 BGT 1$ 

2337 033610 020127 000011 CMP R1,#11 : D1,* 

2338 033614 003003 BGT 1$ 

2339 033616 020227 000011 CMP R2,#11 : D0,* 

2340 033622 003413 BLE 2$ 

2341 033624 017746 176564 1$: MOV ML .REG+30,-(SP) : 2541 

2342 033630 012746 007510 MOV #PHRB, -(SP) 

2343 033634 012746 005674 MOV #FMTGB,-(SP) 

2344 033640 012746 000003 MOV #3,-(SP 

2345 033644 010600 MOV SP,RO x SP,* 

2346 033646 104414 TRAP —s_-'14 

2347 033650 000416 BR 3$ : 2540 . 

2348 033652 010246 2$: MOV R2,-(SP) > D0,* 2543 

2349 033654 010146 MOV R1,-(SP) > Dl. 

2350 033656 010446 MOV R4,-(SP) > D2.* 

2351 033660 010546 MOV PS -(SP) > 03,* 

2352 033662 012746 007510 MOV #PHRB,-(SP) 

2353 033666 012746 005712 MOV #FMT4C,-(SP) 

2354 033672 012746 000006 MOV #6,-(S 

2355 033676 010600 MOV SP,RO : SP, 

2356 033700 104414 TRAP ‘14 

2357 033702 062706 000006 ADD #6,SP 

2358 033706 062706 000024 3$: ADD #24,SP : 2514 

3359 033712 000207 RTS C 

2361 ; Routine Size: 87 words 


f 


|SAYWHO DRIVE IDENTIFICATION ROUTINE 


ALKG 
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sMLX4 


; DRIVE IDENTIFICATION ROUTINES 


; Maximum stack depth per invocation: 


19 words 


23-Oct-19 
23-0ct-' 


SEQ 0088 
3 TOPS 
5 PA:< 


| 


mLxd MACRO M1113 24-OCT-80 09: 59 PAGE 134 
'SAYWHO DRIVE IDENTIFICATION ROUTINES 
2374 3: MLXG 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206 
$e? ; DRIVE IDENTIFICATION ROUTINES 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (1 
2377 ; 2549 ROUTINE CONFIG(LUN): NOVALUE = 
2378 ; 2550 BEGIN !* 1 * 
2379 ; 2551 
2380 ; $226 lee 
2381 ; 2553 !' ROUTINE: CONF 1G(LUN) 
2382 ;: 2554 =! 
2383 ; 2555 |! PURPOSE: CONFIG IS CALLED BY THE INITIALIZATION CODE FOR EACH DRIVE 
2384 ; 2556! WHICH SUCCESSFULLY RESPONDS TO A REQUEST FOR ITS HARDWARE 
+44 ; soe P-TABLE. THE PURPOSES OF THIS ROUTINE ARE: 
2387 ; 2559! (1) TO CHECK THAT THE DRIVE IS POWERED UP. 
2388 ; 2560 |! 
ta ; $20} : (2) TO VERIFY THAT THE DRIVE IS AN ML11 UNIT. 
2391 : 2563 =! (3) TO VERIFY THAT THE OPERATOR DEFINED TEST RANGES ARE 
2392 ; 2564 =! WITHIN THE CALCULATED SYSTEM SIZE. 
2393 ; 2565 =! 
Sone 3 $368 (4) TO PRINT DRIVE IDENTIFICATION INFORMATION. 
2396 : 2568 ' ARGUMENT: LUN = THE LOGICAL UNIT NUMBER, COUNTING FROM 0 TO 
2397 ; 2569 =! NUMBER OF DRIVES MINUS 1. 
2398 ; 2570 !-- 
2399 ; 2571 
2400 ; 2572 
2401 ;: 2573 ~LOCAL 
2402 ; 2574 TYPE, TEMP, TOP; 
2403 ; 2575 
2404 ; 2576 ‘+ 
2405 ; 2577 ‘THIS 1S THE CODE FOR PURPOSE 1: 
2406 ; 2578 ' 
2407 ;: 2579 
2408 ; 2580 UNIT = .DRIVE; 
2409 ; 2581 IF .DPR NEQ 1 
2410 ; 2582 THEN 
2411 ; 2583 BEGIN 
2412 ;: 2584 PRINTB(FMTSA, PHRT. «LUN, WRD11. DRIVE); 
2613 ; 2585 '*LOGICAL UNIT: DRIVE: 
2414 ; 2586 PRINTBCSAY2, WRD11, R021): 
2415 ; 2587 '*DRIVE DROPPED’ 
2416 ; 2588 PRINTBCFMT2, CAUSE1); 
2417 : 2589 (NOT POWERED UP)‘ 
2418 ;: 2590 WHY DROPTC.LUN] = CODE_1; 
2419 ; 2591 pop0(.LUN); 
2420 ; 2592 RETURN; 
2421 ; 2593 END; 
2422 ; 2594 
2423 ; 2595 '¢ 
2424 ; 2596 'THIS IS THE CODE FOR PURPOSE 2: 
2425 ; 2597 be 
2426 ; 598 
2427 ; 599 SAYWHO(.LUN); 
2428 ; 2600 '*LOGICAL UNIT: X DRIVE: Y SERIAL #: 2222' 


) 
1) 


SEQ 0089 


-—— 


4 7 
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SAYWHO DRIVE IDENTIFICATION ROUTINES 

2430 ;MLXG 23-0ct-19 

sta) ; DRIVE IDENTIFICATION ROUTINES 23-0ct-19 

2433 ; 2601 

2434 ; 2602 TYPE = .MLDT; 

2435 ; 2603 

2436 ;: 2606 IF ((. TYPE NEQ ML11A) AND (. TYPE NEQ ML11B)) 

2437 ; 2605 THEN 

2438 ; 2606 BEGIN 

2439 ; 2607 PRINTB(SAY2, WRD11 ,WRD21) ; 

2440 ; 2608 ROPPED' 

2441 ; 2609 PRINTBUFNT2, CAUSE2); 

2442 ; 2610 (NOT AN ML11 UNIT)' 

2443 ; 2611 WHY “DROPTC. LUN) = CODE_2; 

2444 ; 2612 pOD0<.LUN); 

2445 ; 2613 RET : 

2446 ; 2614 END 

2447 ; 2615 ELSE 

2448 ; 2616 BEGIN !* 3 

2449 ; 2617 IF .ARR_TYP EQL 0 “< 

2450 ; 2618 THEN é 

2451 ; 2619 BEGIN !* 4 * 

2452 ; 2620 TYPE = WRDO: 

2453 ; 2621 TOP = 1; 

2454 ; 2622 END 'e 4 * 

2455 ; 2623 ELSE 

2456 ; 2624 BEGIN !* 5 * 

2457 ; 625 TYPE = WRD7; 

2458 ; 626 TOP = 4; 

2459 ;: 2627 END; 'e 5 « 

2460 ; 2628 

2461 ; 2629 '¢ 

2462 ; 2630 'THIS IS THE CODE FOR PURPCSE 3: 

2463 ; 2631 '- 

2464 ; 2632 

2465 ; 2633 TOP_SECTC.LUN] = (.TOP) * (512) * (.S2) - 1; 

2466 ; 2634 IF .LIMIT 

2467 ;: 2635 

2468 ; 2636 '¢ 

2469 ; 2637 ' THE OPERATOR HAS CHOSEN LIMITS: 

2470 ; 2638 '- 

2471 ;: 2639 BEGIN '* 6* 

2472 ; 2640 IF RANGE EQL 0 

2473 ;: 2641 TH HEN 

2474 ; 2642 te 

2475 : 2643 ‘THE BOARD NUMBER (0-15) IS CONTAINED IN ‘ONLY’ 

2476 ; 2644 '- 

2477 ; 2645 BEGIN ‘* 10 * 

2478 : 2646 IF TYPE 

2479 ;: 2647 THEN 

2480 ; 2648 '¢ 

2481 ; 2649 'THE CHIPS ARE 64K 

2482 ; 2650 te 

2483 ; 2651 BEGIN !* * 

2484 ; 2652 LSECT = 5048 * ONLY; 


: 


3 TOPS-20 Bliss-16 we 206 
5 PA:<ROSEN>MLX4.BLI.1 (1 


) 
1) 


SEQ 0090 
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Nn 7 


2486 :MLKG 23-0ct-1980 15:01:43 
oy ; DRIVE IDENTIFICATION ROUTINES 23-0¢t-1980 14:57:05 
2489 ;: 2653 sect = .LSECT + 2047; 
2490 ; 2654 END '‘e 7 * 
2491 ;: 2655 ELSE | 
2492 ; 2656 
2493 ; 2657 THE CHIPS ARE 16K 
249% ; 2658 
2495 ;: 2659 BEGIN le @® 
4% ; 2660 LSECT = 512 * .ONLY; 
2497 ; 2661 TSECT = .LSECT + 511; 
2498 ; 2662 END; le Be 
2499 ;: 2663 
2500 ; 2664 END; 's 10 * 
2501 ; 2665 
2502 ; 2666 IF .TSECT LEQA .TOP SeCTe. shuns 
2503 ; 2667 THEN TOP_SECTC. LUN] = 
2504 ; 2668 ELSE 
2505 ; 2669 BEGIN 
2506 ; 2670 PRINTB(SAY2, WRD11,,WRD21); 
2507 ; 2671 "DRIVE DROPPED' 
2508 ; 2672 PRINTR CERT, CAUSE3); 
2509 ; 2673 '* (OPERATOR SELECTED TEST LIMITS INCORRECTLY) * 
2510 ; 2674 PRINTB(FMT11,PHR14,.TSECT,PHR16,.TOP_SECTL.LUNJ); 
2511 ; 2675 '*TOP SECTOR OF ann EXCEEDS SYSTEM LIMIT OF yvyvyyy' 
2512 ; 2676 WHY_DROPTC.LUN] = 
2513; 2677 DODU(.LUN) : 
2514 ;: 2678 RETURN; 
2515 ;: 2679 END; 
2516 ; 2680 
2517 ; 2681 If .LSECT LEQA .TSECT 
2518 ; 2682 THEN LOW_SECTC.LUN] = .LSECT 
2519 : 2683 ELSE 
2520 ; 2684 BEGIN 
2521 ; 2685 PRINTB(SAY2, WRD11,WRD21); 
2522 ;: 2686 "DRIVE DROPPED’ 
2523 ; 2687 PRINTBCERT?, CAUSE3); 
2524 ;: 2688 (OPERATOR SELECTED TEST LIMITS INCORRECTLY) * 
2525 : 2689 PRINTBCFRTI, PHR15,.LSECT,PHR14,.TSECT); 
2526 : 2690 '"LOW SECTOR OF oa EXCEEDS TOP SECTOR OF YyYYYY' 
2527 ;: 2691 WHY DROPTC.LUN] = CODE_3; 
2528 ;: 2692 pop0(.LUN); 
2529 ;: 2693 RETURN; 
2530 ; 2694 END; 
2531 ; 2695 
2532 : 2696 END; ‘!* 6 * 
2533 ; 2697 
2534 ; 2698 '¢ 
2535 ; 2699 i THs 1S THE CODE FOR PURPOSE 4: 
2536 ;: 2700 
2537 : 2701 
2538 ; 2702 PRINTOCFRTS TYPE LOWEST HIGHEST); 
2539 ;: 2703 ML11 SECTORS UNDER TEST: XXXXXX TO YYYYYY" 
2540 ;: 2704 SELECTONE. XRT OF 


TOPS-20 Bliss-16 ver 206 
PA: <ROSEND>MLX4.BL1.1 (1 


) 
1) 


SEQ 0091 


a -———eae ee a —— —$—$— --~*< 
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/SAYWHO DRIVE IDENTIFICATION ROUTINES SEQ 0092 

2542 : SMLXG 23-Oct-1980 15:01:43  TOPS-20 Bliss-16 v2(206) 

563 DRIVE IDENTIFICATION ROUTINES 23-Oct-1980 14:57:05  PA:<ROSENDMLX4.BLI.1 (11) 

2545 ; 2705 

2546 : 2706 (0) : TEMP = TRTOO; 

2547 ; 2707 C1) TEMP = TRTO1; 

2548 : 2708 ce] TEMP = TRT10: 

2549 ; 2709 (3) : TEMP = TRT11: 

2550 : 2710 TES; 

2551 ; 2711 PRINTB(FMTB, TEMP); 

2552 ; 2712 '* TRANSF ER RATE: x yt heme 

2553 ; 2713 PRINTB(FMTGB, PHR4,.BASE_ADD 

2554 ; 2714 CSR “ADDRESS: itecen*” _ | 

2555 : 2715 Ew: 

2556 : 2716 

2557 ; 2717 + RETURN; 

2558 : 2718 

$223 3 2719 END; 'e J * 

2564 -SBTTL CONFIG DRIVE IDENTIFICATION ROUTINES 
2568 033714 004137 005222 CONFIG: JSR R1,SSAVES : 2549 | 
2569 033720 016603 000016 MOV 16(SP) ,R3 > LUN,* 2580 | 
2570 033724 010304 MOV R3,R4 

2571 033726 006304 ASL Rd 

2572 033730 016401 032440 MOV PTABLE .ADDR(R4),R1 

2573 033734 016105 000006 MOV 6(R1),R5 

2574 033740 705 177770 BIC #177770,R5 

2575 033744 142777 990007 176422 BICB = #7, ML. REG*10 

2576 033752 150577 176416 BISB RS5.aML.REG+10 

2577 033756 032777 000400 176412 BIT #400, aML .REG+12 : 2581 

2578 033764 001051 BNE 

2579 033766 016401 032440 MOV PTABLE. ADDR(R4) RI ; 2584 
580 033772 016146 000006 MOV 6(R1),-(SP) 

2581 033776 012746 006662 MOV #wRD11,-(SP) 

2582 034002 010 MOV R3,-(SP 

2583 034 012746 007472 MOV #PHR7,-(SP) 

2584 034010 012746 005640 MOV #FMTGA,-(SP) 

2585 034014 012746 MOV #5,-(SP 

2586 034020 010600 MOV ‘ : SP,* 

2587 034022 104414 TRAP 

2588 034024 012716 006744 MOV #WRD21, (SP) : 2586 
2589 034030 012746 006662 MOV #WRD11,-(SP) 

2590 034034 012746 006522 MOV #SAY2,-(SP) 

2591 034040 012746 000003 MOV #3,-(SP) 

2592 034044 010600 MOV SP,RO : SP,* 
593 034046 104414 TRAP | 

2594 034050 012716 010102 MOV #@CAUSE1, (SP) ; 2588 
2595 034054 012746 005602 MOV #FRT2,-(SP) 

2596 034060 012746 000002 MOV #2,-(SP) 


em | 


‘i 
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2598 
2599 


oO 
FF 


So 

S89 
So 

lt ld cl elt tt el hs lh hs ls cls ees es els eels el 


ooo o 
FELEESELESELSEESES ESE EES 
SESSNSNSE 


oo 
ooooo°oo°oo 
MONA r~ 


MOR MPP Pornr 
AOAAAAAO AO 
WW PoP feroefpr rr 
—OOONOUS wr 
oo°oo oo 
MMMMNMNN—— 
FMAMONO SWOT 


e 
pawetnee oO 
SEPE EES 


rwMronwnr 
GOASCAAS 
MoOrofonrorfrry» 


wu 


bes 4 ie 


000001 


000026 


033436 
176270 
000110 
000111 


006744 


000003 


010124 
005602 
000002 


000002 


000016 
002000 


006642 
000001 


006652 


000004 
032516 


176120 


177740 
004632 


sMLX4 


032464 


1$: 


032464 


176160 2$: 


3$: 
4$: 


DRIVE IDENTIFICATION ROUTINES 


fa 
#1 ,WHY .DROPT(R3) 
R3,RO 


1° 
#26,SP 
PC 
R3,-(SP) 


PC,SAYWHO 
QML .REG+26,R2 
R2,#110 


$ 
R2,#111 
2$ 
#WRD21,-(SP) 
#WRD11,-(SP) 


#SAY2,-(SP) 
1 Nai 


’ 


#CAUSE2, (SP) 
#FMT2,-(SP) 
#2,-(SP) 
SP,RO 


14 
#2,WHY .DROPT(R3) 
R3,RO 


1 
#16,SP 
PC 
tian ti 
#WRDG,R2 
#1,R1 
4% 
#WRD7,R2 
#4,R 
#TOP.SECT,RS 
R4,R5 
R1,-(SP) 
ant. ~REG#24,R1 


R1 
R1 


R1 
n77740, RI 
PC ,BLSMUL 
RO 
RO 
RO 
RO,R1 


SP,* 


*, TYPE 
TYPE ,* 


TYPE,* 


SP,* 


SP,* 


*, TYPE 
*, TOP 


«, TYPE 
*, TOP 


TOP,* 


23-Oct-1980 15: 
23-Oct-1980 14: 


2609 | 


2633 
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‘MLXG = MACRO -M1113 24-OCT-80 99:39 PAGE 139 


CONFIG DRIVE IDENTIFICATION ROUTIN SEQ 0094 
2654 SMLX4 23-Oct-1980 15:01:43 TOPS 
StH ; DRIVE IDENTIFICATION ROUTINES 23-0¢t-1980 14:57:05 PA:< 
2657 034322 005301 DEC RI 
2658 034324 010115 MOV R1,(R5) 

2659 034326 032737 000001 002222 BIT #1,LIMLt : 2634 
2660 034334 001574 BEQ 11$ 
2661 034336 005737 002224 TST RANGE ; 2640 
2662 034342 001036 BNE 6$ 
2663 034344 032702 000001 BIT #1,R2 ; *, TYPE 2646 
2664 034350 001417 BEQ 5$ 
2665 034352 013700 002232 MOV ONLY,RO : 2652 
2666 034356 000300 SWAB sO 
2667 034360 105000 CLRB = RO 
2668 034362 006300 ASL RO 

034364 0063 ASL RO 
2670 034366 006300 ASL RO 
2671 034370 010037 002226 MOV RO,LSECT 
2672 034374 010037 002230 MOV RO. TSECT : LSECT,* 2653 
2673 034400 062737 003777 002230 ADD #3777, TSECT 
2674 034406 000414 BR 6$ : 2646 
2675 034410 013700 002232 S$: MOV ONLY, RO : 2660 | 
2676 034414 000300 SWAB sO 
2677 034416 105000 CLRB ss RO 
2678 034420 006300 ASL RO 
2679 034422 010037 002226 MOV RO,LSECT 
2680 034426 010037 002230 MOV RO, TSECT > LSECT,* 2661 
681 034432 062737 000777 002230 ADD #777, TSECT 
682 034440 023715 002230 6$: CMP TSECT, (R5) : 2666 
2683 034444 101003 BHI 7$ 
2684 034446 013715 002230 MOV TSECT, (RS) ; 2667 
2685 034452 000445 BR 8$ ; 2666 
2686 034454 012746 006744 7$: MOV #WRD21,-(SP) : 2670 
2687 034460 012746 006662 MOV #WRD11,-(SP) 
2688 034464 012746 006522 MOV #SAY2,-(SP) 
2689 034470 012746 000003 MOV #3,-(SP) 
2690 034474 010600 MOV SP,RO : SP,* 
2691 034476 104414 TRAP = :14 
2692 034500 012716 010150 MOV #CAUSE3, (SP) : 2672 
2693 034504 012746 005602 MOV #FMT2,-(SP) 

034510 012746 000002 MOV #2,-(SP) 

| 3695 034514 010600 MOV SP-RO : SP,« 

034516 104414 TRAP 
2697 034520 011516 MOV (RS), (SP) : 2674 
2698 034522 012746 007744 MOV #PHR16,-(SP) 
2699 034526 013746 002230 MOV TSECT,-(SP) 
2700 034532 012746 007710 MOV #PHR14,-(SP) 
2701 034536 012746 006276 MOV #FRT11.-(SP) 
2702 034542 012746 000005 MOV #5,-(S 
2703 034546 010600 MOV SP, : SP,* 
2704 034550 104414 TRAP 
2705 034552 112763 000003 032464 MOVE  #3,WHY.DROPT(R3) ; 2676 
2706 034560 010300 MOV R3,RO : 2677 
2707 034562 104451 TRAP —s«511 
2708 034564 000455 BR 108 ; 2666 


-—- 


. 
| 
i 
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wviw 


ererer 
RSSSSINF 


Mmrrnorrororofrere fern 
rs 
oa 
Sense es 


NANNING 
RD at ot et 2 

NM HOOBNOU EWN 

COSCO OCOCOO 


6 
2721 034626 
30 


2764 035032 


2a 


¥ 


SNE PA NNNIN 
— 


oo ae 
Ww Suen 


002226 002230 
002226 032476 


006744 


000003 


010150 
005602 
000002 


002230 


000005 


000003 


000034 


032476 
005742 
000004 
175432 
177774 
010066 
000001 
010070 
000002 
010072 
000003 
010076 


SS ah ee 


032464 


MLKG 


8$: 


9$: 


10$: 
11$: 


12$: 


13$: 


14$: 


DRIVE IDENTIFICATION ROUTINES 


LSECT, TSECT 
9$ 


LSECT,LOW.SECT(R4) 
11$ 


#WRD21,-(SP) 
#WRD11,-(SP) 
#SAY2,-(SP) 
#3,-(SP) 
SP,RO 


#CAUSES, (SP) 
#FMT2,-(SP) 
#2,-(5P) 
PRO 


1 
TSECT, (SP) 
#PHR14,-(SP) 


#FMT11.-(SP) 
#5,-(SP) 
SP-RO 


#34,SP 
PC 
(R5) 


LOW. SeCT(RG), - (SP) 


R2,-(SP) 
#FMTS,-(SP) 
#4 ,-(SP) 


14 
taeda a 
#177774,R1 
12$ 
#TRTOO,RO 
15$ 

R1,#1 

13 
#TRT01,R0 
15$ 

R1,#2 

14% 
#TRT10,RO 
15$ 

R1,#3 

15 
#TRT11,R0 


16 
#3,WHY .DROPT(R3) 
R3,RO 


SEQ 0095 
23-0ct-1980 15:01:43 TOPS 
23-0ct-1980 14:57:05 PA:< 

3 2681 
3 2682 
: 2681 
; 2685 
; ,* 
3 2687 
; +.* 
3 2689 
3P,* 
; 2691 
; 2692 
: 2681 
; 2684 
i 2702 
; TYPE,* 
SP,* 
: 2704 
; *, TEMP 2706 
: 2704 
; *, TEMP 2707 
3 2704 
; *, TEMP 2708 
: 2704 
; *, TEMP 2709 


f 


MLKG 


2766 
2767 
2768 
2769 035036 


23 Oo So 
~ 


006110 
000002 


030724 


000003 


000030 
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7MLX4 


; Routine Size: : , 
; Maximum stack depth per invocation: 


15$: MOV 


DRIVE IDENTIFICATION ROUTINES 


RO, (SP) 
#FMTB,-(SP) 
#2,-(SP) 
Cae 


1 
BASE. ra (SP) 


14 
#30,SP 
PC 


317 words 


20 words 


TEMP,* 


SP,* 


; #,* 


23-Oct-19 
23-0ct-19 


@oo 
oo 


2713 


2549 
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CONFIG DRIVE IDENTIFICATION ROUTINES SEQ 0097 
2792 ;MLX4 23-Oct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
teh ; DRIVE IDENTIFICATION ROUTINES 23-0ct-1980 14:57:05 PA: <ROSEND>MLX4.BLI.1 (12) 
2795 ; 2720 ROUTINE DECODE(SECT): NOVALUE = 
2796 : 2721 BEGIN 
2797 ; 2722 
2798 ; 2723 4 
2799 ; 2724 =! * ROUTINE: DECODE (SECT) 
2800 ; 2725! 
2801 ; 2726 i PURPOSE : TO INTERPRET THE FIELDS OF THE FAILING SECTOR 
2802 ; ever 7 ; FOR BOTH 16K AND 64K CHIPS. 
2803 ; 2728 =! 
2804 ; 2729 \ ARGUMENT: SECT = FAILING SECTOR NUMBER 
2805 ; 2730! ’ 
2806 ; 2731 i RESULTS: (1) BANK = WHICH ROW OF CHIPS (0-4) 
2807 ; 2732 =! 
2808 ; 2733 i (2). BOARD = WHICH ARRAY MODULE (0-15) 
2809 ; 2734 ie 
<810 ; 2735 
2811; 2736 ~=#2IF .MLDT 
2812 ; 2737 ~=THEN 'THE CHIPS ARE 64K 
2813 ; 2738 BEGIN 
2814 ; 2739 BANK = .SECT<9,2>; 
2815 ; 2740 BOARD = .SECT<11,4>; 
2816 ; 2741 END 
2817 ; 2742 «ELSE 'THE CHIPS ARE 16K 
2818 ; 2743 BEGIN 
2819 ; 2744 BANK = .SECT<7,2>; 
2820 ; 2745 BOARD = .SECT<9,4>; 
2821 ; 2746 END; 
2822 ; 2747 
2823 ; 2748 RETURN; 
2624 ; 2749 
2825 ; 2750 END; 
2829 
2830 -SBTTL DECODE DRIVE IDENTIFICATION ROUTINES 

* 2834 035106 032777 000001 175276 DECODE: BIT A ,@ML .REG+26 : 2736 
2835 035114 001415 BEQ 
2836 035116 016600 000002 MOV | 3; SECT,* ; 2739 
2837 035122 006200 ASR RO 
2838 035124 000300 SWAB RO 
2839 035126 042700 177774 BIC #177774,R0 
2840 035132 010037 032362 MOV RO, BANK 
2841 035136 016600 000002 MOV 2(SP),RO ; SECT,* 2740 
2842 035142 006200 ASR RO 
2843 035144 006200 ASR RO 
2844 035146 000412 BR 2$ 
2845 035150 016600 000002 1$: MOV 2(SP),R0 : SECT,* 2744 
2846 035154 006100 ROL RO 


MLXG 


2848 

2849 

2850 

2851 035156 000300 
2852 035160 042700 
2853 035164 010037 
2854 035170 016600 
2855 035174 200 
2856 035176 000300 
2857 035200 042700 
2858 035204 010037 
2859 035210 000207 


177774 
032362 
000002 


177760 
032360 
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sMLX4 
; DRIVE IDENTIFICATION ROUTINES 
SWAB RO 
BIC #177774,R0 
MOV RO, BANK 
MOV 2(SP),RO 
2$: ASR RO 


RO 
BIC #177760 ,R0 
MOV —— 


; Routine Size: 34 words © 
; Maximum stack depth per invocation: 


0 words 


s S8CT,* 


2745 


2720 
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DECODE DRIVE IDENTIFICATION ROUTINES 
2870 ;MLX4 23-0ct-1980 15:0 
ial ; DRIVE IDENTIFICATION ROUTINES 23-0ct-1980 14:5 
| 2873; 2751 ROUTINE ISOLATE : NOVALUE = 
2874 ; 2752 BEGIN 
| 2875 ; 2753 
2876 ; 2754 «4 
| 2877; 2755! * ROUTINE: ISOLATE 
2878 ; 2756! 
2879 ; 2757 | PURPOSE: UPON THE DETECTION OF A DATA ERROR (EITHER RECOVERABLE OR 
| 2880 ; 2758 =! NOT) TO EXAMINE THE SECTOR ADDRESS CONTAINED IN THE ECC 
2881 ; 2759} ERROR LOCATION REGISTER AND PINPOINT THE LOCATION OF THE 
| 2BB2 ; 2760 | ERROR. THE SECTOR, BOARD (0-15) AND SANK (0-3) WILL BE 
2883 ; 2761! REPORTED. 
2884 ; 2762 I+ 
2885 ; 2763 
2886 ; 2764 DECODE(.MLEL); 
2887 ; 2765 =F .ERROUT 
| 2888 ; 2766 THEN PRINTB(FMT10A, WRD20,WRD15,.MLEL, .BOARD, .BANK) ; 
2889 ; 2767 '"FAILED: SECTOR XXXXXX BOARD YY BANK 7Z' 
890 ; 2768 RETURN; 
seas ; 2769 END; 
2896 .SBTTL ISOLATE DRIVE IDENTIFICATION ROUTINES 
2900 035212 017746 175212 ISOLATE :MOV QML .REG+44,-(SP : 
2901 035216 004737 035106 JSR PC ,DECODE 
2902 035222 032737 000001 002260 BIT #1 ERROUT i 
2903 035230 001422 BEQ 1$ 
2904 035232 013746 032362 MOV BANK ,-(SP) 3 
2905 035236 013746 032360 MOV BOARD ,-(SP) 
2906 035242 017746 175162 MOV QML .REG+44,-(SP) 
2907 035246 012746 006670 MOV #WRD15,-(SP) 
2908 035252 012746 006734 MOV #WRD20,-(SP) 
2909 035256 012746 006206 MOV #FMTIOA,-(SP) 
2910 035262 012746 000006 MOV #6,-(SP) 
2911 035266 010600 MOV SP,RO ; SP,* 
2912 035270 104414 TRAP 14 
2913 035272 062706 000016 ADD #16,SP 
2914 035276 005726 1$: TST (SP)+ : 
sot? 035300 000207 RTS PC 
2917 : Routine Size: 28 words 
2918 ' ; Maximum stack depth per invocation: 8 words 
2923 
| 
Sra ee 1 eee 


1:43 TOPS=-20 Bliss-16 V2(206) 
7:05 PA: <ROSENDMLX4.BLI. 


SEQ 0099 


2764 
2765 
2766 


2751 
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2925 = MLK4 
2926 ; 


Mmror 
oOo 
Wwrrw 
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9 
2463 035302 
964 


2979 035360 


006300 
00 


021027 


23-0ct-1980 15:01 £ 
DRIVE IDENTIFICATION ROUTINES 23-Oct-1980 14:57:0 


ROUTINE UP_HARD_COUNT(LUN,ARRAY) : NOVALUE = 
BEGIN 


Win 


' 

ROUTINE : UP_HARD_COUNT (LUN, ARRAY) 

! PURPOSE: TO INCREMENT THE HARD ERROR COUNT FOR THE GIVEN 

: ARRAY, AND TO SEE IF THE HARD ERROR THRESHOLD HAS 
BEEN REACHED. 

ARGUMENTS: LUN = LOGICAL UNIT WHICH HAS THE HARD ERROR 

= 


ARRAY = THE BOARD NUMBER (0-15) 
HARDSC.LUN, .ARRAY,0,16,0] = .HARDSC.LUN, .ARRAY,0,16,0] + 1; 
IF ((C.ARR_TYP EQL 1) AND (.HARDSC.LUN,.ARRAY,0,16,0) EQL H64K_LIMiT 
i, -ARR_TYP EQL 0) AND (.HARDSC.LUN,.ARRAY,0,16,0) EQL H16K_LIMIT )) 
BEGIN 
SAYWHO(.LUN) 


PRINTB(FMT13, . ARRAY ,MSG2) ; 
'"ARRAY XX ==> RUN ML11 PROM MAINTENANCE PROGRAM’ 


END; 

RETURN; 

END; 
-SBTTL UP.HARD.COUNT DRIVE IDENTIFICATION ROUTINES 

UP .HARD. COUNT: 

000004 MOV 4(SP),RO ; LUN,* 
ASL RO 
ASL RO 
ASL RO 
ASL RO 

000002 ADD 2(SP),RO ; ARRAY,* 
ASL RO 

031332 ADD #HARDS,RO 
INC (RO) 

002000 175050 tH #2000, aML .REG+24 

000012 aA alain 

002000 175032 1$: i #2000, aML .REG+24 : 

000012 CMP (RO) ,#12 


TOPS=-20 Bliss-16 V2(206) 
PA:<ROSEN>MLX4.BLI.1 


(14) 


SEQ 0100 


2784 


2786 


2787 


t--- -—- —— 
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}UP.HARD.COUNT DRIVE IDENTIFICATION ROUTINES SEQ 0101 
2981 MLX4 23-0ct-1980 15:01:43 TOPS 
soot ; DRIVE IDENTIFICATION ROUTINES 23-0ct-1980 14:57:05 PA:< 

035364 001020 BNE 3$ 
2985 035366 016646 000004 2$: MOV 4(SP),-(SP) ; LUN,* 2790 
2986 035372 004737 033436 JSR PC, SAYWHO 
2987 035376 012716 010542 MOV #MSG2, (SP) ; 2791 
2988 035402 016646 000004 MOV 4(SP),=-(SP) ; ARRAY,* 
2989 035406 012746 006446 MOV #FMT13,-(SP) 
2990 035412 012746 000003 MOV #3,-(SP) 
2991 035416 010600 MOV SP ,RO 3; SP,* 
2992 535420 104414 TRAP 14 
2993 035422 062706 000010 ADD #10,SP 278 
ae 035426 000207 3$: RTS PC ; 277 
2996 3 Routine Size: 43 words 
3.444 ; Maximum stack depth per invocation: 4 words 


- 
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MLXG 
|\UP.HARD.COUNT DRIVE IDENTIFICATION ROUTINES 


3005 ;MLX4 23-0ct-1980 15:01:4 
S008 ; DRIVE IDENTIFICATION ROUTINES 23-Oct-1980 14:57:0 
3008 ; 2797 ROUTINE UP_SOFT_COUNT(LUN,ARRAY) : NOVALUE = 

3009 ; 2798 BEGIN 

3010 ; 2799 

3011 ; 2800 !++ 

aoi8 ; so) ROUTINE : UP_SOF T_COUNT (LUN, ARRAY) 

3014 ; 2803 |! PURPOSE: TO INCREMENT THE SOFT ERROR COUNT FOR THE GIVEN 
3015 ; 2804 |! ARRAY, AND TO SEE IF THE SOFT ERROR THRESHOLD HAS 
3016 ; 2805 |! BEEN REACHED. 

3017 ; 2806 ! 

3018 ; 2807 ! ARGUMENTS: LUN = LOGICAL UNIT WHICH HAS THE SOFT ERROR 

3019 ; 2808 =! ARRAY = THE BOARD NUMBER (0-15) 

3020 ; 2809 ! 

3021 ; 2810 

$055 ; si) SOFTSC.LUN,.ARRAY,0,16,0) = .SOFTSC.LUN,.ARRAY,0,16,0) + 1; 

3024 ; 2813 IF (((.ARR_TYP EQL 1) AND (.SOFTSC.LUN,.ARRAY,0,16,0] EQL S64K_LIMIT 
3025 ; 2814 OR ((.ARR_TYP EQL 0) AND (.SOFTSC.LUN,.ARRAY,0,16,0] EQL S16K_LIMIT ) 
3026 ; 2815 THEN 

3027 ; 2816 BEGIN 

3028 ; 2817 SAYWHO(.LUN); 

3029 ; 2818 PRINTB(EMT13. - ARRAY ,MSG2); 

3030 ; 2819 '"ARRAY KX ==> RUN ML11 PROM MAINTENANCE PROGRAM’ 

3031 ; 2820 END; 

3032 ; 2821 

3033 ; 2822 RETURN; 

so38 ; 2823 END; 

3039 .SBTTL UP.SOFT.COUNT DRIVE IDENTIFICATION ROUTINES 
5043 035430 UP .SOFT.COUNT: 

3044 035430 016600 000004 MOV 4(SP),R0 ; LUN,* 
3045 035434 006300 ASL RO 

3046 035436 006300 ASL RO 

3047 035440 006300 ASL RO 

3048 035442 006300 ASL RO 

3049 035444 066600 000002 ADD 2(SP),RO ; ARRAY,* 
3050 035450 006300 ASL R 

3051 035452 062700 030732 ADD #SOFTS,RO 

3052 035456 005210 INC 

3053 035460 032777 002000 174722 BIT #2000, aML.REG+24 : 
3054 035466 001403 BEQ 

3055 035470 021027 000012 CMP (RO), #12 

3056 035474 001407 BEQ 

3057 035476 Oaeree 002000 174704 1$: BIT #2000, aML.REG+24 3 


3059 035506 021097 000012 CMP (RO) ,#12 


743 TOPS-20 Bliss-16 V2(206 
5 PA: <ROSEN>MLX4.BLI.1 


SEQ 0102 


) 
(15) 


2811 


2815 


2814 


reser FC Cr OCU aa eee Cr —__——_ _--- - — — -- - — 


| 
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UP.SOFT.COUNT DRIVE IDENTIFICATION ROUTINES SEQ 0103 
3061 sMLX4G cs 23-0¢t-1980 15:01:43 TOPS 
3008 3 DRIVE IDENTIFICATION ROUTINES 23-0ct-1980 14:57:05 PA:< 
3064 035512 001020 BNE 3$ 
3065 035514 Wig os | 2$: MOV 4(SP),-(SP) : LUN,* 2817 
3066 035520 004737 033436 JSR PC, SAYWHO 
3067 035524 012716 010542 MOV #hSG2, (SP) 5 2818 

0355 016646 04 MOV 4<SP),-(SP) : ARRAY,* 

9 035534 012746 006446 MOV #FmTi$,-(SP) 

70 035540 012746 000003 MOV #3,-(SP) 
3071 035544 010600 MOV ° ; SP,* 
3072 035546 104414 TRAP 1 

73 035550 062706 000010 ADD #10,SP s 2816 
re 035554 000207 3$: RTS PC : 2797 
3076 ; Routine Size: 43 words 
3077 ; Maximum stack depth per invocation: 4 words 
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SOFT.COUNT DRIVE IDENTIFICATION ROUTINES SEQ 0104 






MLX 
uP 








2858 QUICK = 1; 
2859 CLRTBLS(); 
2860 INCR LUN FROM_O TO (.LSUNIT-1) DO 


WA WI MINIMA AIR RI NINNNNNNID 2 2 2 2 OO OS S| OOOCOCO 
eee SUSE URUNR ES SaNnenrkun =oSe Ue ARRAS 


sMLKe 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
3 INITIALIZATION CODE 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (16) 
; 33% ZSBTTL ‘INITIALIZATION CODE" 
3 2826 BGNINIT; !* 1 * 
" 3 2827 
2 3 2828 
3 2829 ! INITIALIZATION CODE IS EXECUTED AT THE BEGINNING OF EACH 
— . ; 2830 | PASS, WHEN POWER DOWN/POWER UP HAS OCCURRED, OR WHEN THE 
| ; + OPERATOR HAS ISSUED A START, RESTART OR CONTINUE COMMAND. 
| ; 2833! DURING INITIALIZATION, THE "GPHARD’ MACRO IS USED TO GET 
; 2834 =! P=TABLE INFORMATION FOR THE LOGICAL UNIT UNDER TEST. THE 
| ; 2835 =! NUMBER OF UNITS AVAILABLE FOR TESTING IS CONTAINED IN A 
: $336 HEADER LOCATION ('LSUNIT'). 
; 2838 =! THE CODE WITHIN THE INITIALIZATION SECTION IS DIVIDED 
3103 ; 2839 =! INTO THREE CATEGORIES: 
; 2840 ! 1) ONCE-ONLY CODE a tt IS EXECUTED 
3 2841 |! ONLY ON THE VERY FIRST PASS (1.E., 
; 2842 |! WHEN THE OPERATOR HAS JUST TYPED 
; 2843 IN THE ‘START’ COMMAND; 
; 2844 ! 2) (CODE WHICH SHOULD NOT BE EXECUTED 
; 2845. ! ON THE FIRST PASS, BUT WHICH IS 
; 2846! TO BE RUN ON Ever SUBSEQUENT PASS; 
z 2847 |! 3) COMMON CODE WHICH 1S TO BE EXECUTED 
| ; 2848 =! ON EVERY PASS (INCLUDING THE FIRST). 
3 2849 
; 2850 
$ 2851 LOCAL 
3 2852 PLOC; 
| : 2853 
; 2854 
Be’ 3 2855 iF ( CREADEF (EF START)) OR (READEF(EF_RESTART))) 
= ~ ; 2856 THEN 'THIS TS CATEGORY 1 CODE 
is 4 ; 2857 BEGIN '*2* 
i ; 2861 BEGIN i 3 

3 2862 LSLUN LUN; 

3 2863 IF GPHARD(. LUN,PLOC) NEQ 0 

3 2864 THEN 

: 2865 BEGIN !*4* 

: 3 2866 PTABLE ADORE. LUN) = .PLOC; 
‘ 3 2867 IF .NUM_DRIVES EQL 0 
Les 3 2868 THEN Init _ADDRESSES(. PLCC) ; 

ye ; 2869 NUM DRIVES = .NUM DRIVES + 1; 

3 2870 DRIVE STATUSC. LUN] = ACTIVE; 

; 2871 CONF 1G(.LUN); 

: 2872 END le 4 

; 2873 


WAAAY AA AAA AWW 
ee el a ee ce ee et ee me te ek ek ed ed ed ed ed ed ed 


ELSE 
2874 DRIVE_STATUSC.LUN] = INACTIVE; d 
END; '‘e 38 


se 
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UP.SOFT.COUNT DRIVE IDENTIFICATION ROUTINES ’ SEQ 0105 

3141 ;MLX4 23- 243 TOPS=20 Bliss-16 V2(206) 

$e ; INITIALIZATION CODE 23- :05  PA:<ROSEN>MLX4.BL1.1 

3144 ;: 2876 END 'e 2* 

3145 ; 2877 , , 

3146 ; 2878 ELSE 'THIS IS CATEGORY 2 CODE 

3147 ; 2879 QUICK = 0; 

3148 ; 2880 

3149 ; 2881 'CATEGORY 3 CODE WOULD GO HERE, BUT THERE IS NONE. 

3150 ; 2882 

Slee 3 2883 ENDINIT; ‘!* 1 * 

3156 .SBTTL LINIT INITIALIZATION CODE 

3160 035556 004137 005202 LINIT: JSR “ E4 2823 
3161 035562 012700 000040 OV #b.k 2855 
3162 0355 104447 TRAP 

3163 035570 103404 BcS 

3164 035572 012700 000037 MOV 137,R0 

3165 035576 104447 TRAP 47 

3166 035600 103076 BHIS 7$ 

3167 035602 012737 000001 030712 1$: MOV #1,QUICK 2858 
3168 035610 004737 032572 JSR PC,CLRTBLS 2859 
3169 035614 013704 002012 MOV LSUNIT,R4 : 2860 
3170 035620 005003 CLR R3 ; LUN 

3171 035622 62 BR 6$ 

3172 035624 010337 002074 2$: MOV R3,LSLUN ; LUN,* 2862 
3173 035630 010302 MOV R3,R2 ; LUN,* 2870 
$iz3 035632 gst: ASR R 

175 635634 006202 ASR R2 
3176 035636 006202 ASR R2 

3177 035640 062702 032460 ADD #DRIVE .STATUS,R2 
3178 035644 010300 MOV R3,R0 ; LUN,* 2863 
3179 035646 104442 TRAP 42 

3180 035650 01000 MOV RO,R1 ; *,PLOC 

3181 035652 001432 BEQ 4$ 

3182 035654 010300 MOV R3,RO0 3; LUN,* 2866 
3183 035656 300 ASL RO 

3184 035660 010160 032440 MOV R1,PTABLE .ADDR(RO) ; PLOC,* 

3185 035664 005737 032474 TST NUM. DRIVES : 2867 
3186 035670 001 BNE 3$ 

3187 035672 010146 MOV R1,-(SP) : PLOC.* 2868 
qize 035674 004737 033120 JSR PC, INIT. ADDRESSES 

189 035700 005726 TST (SP)+ 

3190 035702 005237 032474 3$: INC NUM. DRIVES 2869 
3191 035706 010246 MOV Re i 3 2870 
3192 035710 010346 MOV ; LUN,* 

3193 035712 042716 177770 BIC Hif7170, (SP) 

3194 035716 012746 000001 MOV #1,-(SP) 

3195 035722 011646 MOV (SP) ,-(SP) 


fo 
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LINIT INITIALIZATION CODE 
| 3197 


3216 036002 000207 


900207 


004502 
033714 


177770 
000001 


004502 
000010 


030712 


035556 


7MLX4 


4$: MOV 


5$: ADD 
6$: CMP 


7$: CLR 


; Routine Size: 
; Maximum stack 


-SBTTL 
LSINIT::JSR 
TRAP 


RTS 


; Routine Size: , ; 
; Maximum stack depth per invocation: 


INITIALIZATION CODE 


PC ,BLSPU2 
R3, (SP) 
PC, CONFIG 
5$ 


R2,-(SP) 
R3,-(SP) 
#177770, (SP) 
#1,-(SP) 
-(§P) 

PC ,BLSPU2 
#i0,SP 

R3 

R3,R4 

2$ 

PC 

QUICK 

PC 


75 words 


depth per invocation: 


PC 


4 words 


LSINIT INITIALIZATION CODE 
INIT 


SEQ 0106 


23-0c t-198 
23-0 t-198 


oo 
—— 
uw 
Ao 


; LUN,* 


: LUN,* 


LUN 
LUN,* 


TOPS 
PA:< 


2871 


2863 
2874 


2879 


‘ [ae a - a > 


a oes . D 9 
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ILSINIT INITIALIZATION CODE 


3247 ;MLXG 23-0ct-1980 15:01:4 
e5¢8 5 GENERATOR FOR OPTION 1 23-0ct-1980 14:57:0 
3250 ; 2884 XSBTTL ‘GENERATOR FOR OPTION 1° 

3251 ; 2885 

3252 ; 2886 ROUTINE GENT(SECTOR,COMP_FLAG): NOVALUE = 

3253 ; 2887 BEGIN !* 1 * 

3254 ; 2888 

3255 ; 2889 ‘+ 

$529 3 coo * ROUTINE: GEN1 (SECTOR, COMP_FLAG) 

3258 ; 2892 ! PURPOSE: TO GENERATE THE ENTIRE 4K-WORD WRITE BUFFER FOR OPTION 1. 
3259 ; 2893! THE GENERATION IS IN 16 GROUPS OF 256 WORDS (THE SIZE 
3260 ; 2894! OF 1 SECTOR). EACH GROUP OF 256 WORDS RECEIVES THE 
$50) 3 34.44 | SECTOR ADDRESS WHERE THE WORDS WILL BE TRANSFERRED. 
Naty ; sone | ARGUMENTS. (1) SECTOR - CURRENT SECTOR NUMBER. 

3265 ; 2899 | (2) COMP_FLAG = AN INDICATOR WHICH IS USED TO DECIDE 
3266 ; 2900 ! WHETHER THE LOCATION IN THE WRITE BUFFER 
3267 ; 2901! SHOULD BE COMPLEMENTED. 

3268 ; 2902 !- 

3269 ; 2903 

3270 ; 2904 LOCAL 

3271 ;: 2905 OFFSET; 

3272 ;: 2906 

3273 ; 2907 OFFSET = 0; 

3274 ; 2908 

3275 : 2909 IF .COMP_FLAG 

3276 : 2910 THEN TGENERATE COMPLEMENT DATA 

3277 ; 2911 INCR SECT FROM (.SECTOR) TO ((.SECTOR) + 15) DO 

3278 : 2912 BEGIN: 

3279 ;: 2913 BREAK 

3280 ; 2914 INCR count FROM 1 TO 256 DO 

3281 ; 2915 EGIN !* 2A 

3282 ; 2916 (WBUFF + (. OFFSET)) = NOT (.SECT); ‘COMPLEMENT DATA 
3283 ; 2917 OFFSET = .OFFSET + 2; 

3284 ; 2918 END; 's 2A * 

3285 ; 2919 END 

3286 ; 2920 

3287 ; 2921 ELSE 'GENERATE REGULAR DATA 

3288 : 2922 INCR SECT FROM (.SECTOR) TO ((.SECTOR) + 15) DO 

3289 ; 2923 BEGIN 

3290 ; 2924 BREAK; 

3291 ; 2925 INCR COUNT FROM 1 TO 256 DO 

3292 : 2926 BEGIN ‘* 2B * 

3293 ;: 2927 (WBUFF + (.OFFSET)) = (SECT); 'REGULAR DATA 

3294 ; 2928 OFFSET = .OFFSET + 2; 

3295 ;: 2929 END; 's 2B * 

3296 ; 2930 END; 

3297 ; 2931 

3298 ; 2932 RETURN; 

3299 ;: 2933 

3300 ; 2934 END; ‘ele 


3 TOPS=-20 Bliss-16 V2(206) 
5 PA: <ROSEN>MLX4.BLI.1 


SEQ 0107 


(17) 


| 


MLK 


4 


/LSINIT INITIALIZATION CODE 


| 

3336 
3338 0 
3340 
3 


3330 6 
3331 036102 
3 104 


Ww 

Ww 

Ww 

~ 

oocoecoo 

SRRRDOO RS 

ee ed ed ed ed ed 
WINN a es 
NONOARVOR 


s 
So 
$ 


3 
Ww 
uN 


~“ 


424 


Sctacsess 
ea eee 
Stee 


S 


415 


o— 
—oO 
= 
- 
tf 
~ 


005202 
000016 


000017 
000001 


000001 
010706 
000002 


000400 


000001 
010706 
000002 


000400 


000014 
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GEN1 


1$: TRAP 


2$: MOV 


3$: INC 


4$: DEC 


5$: TRAP 
6$: MOV 


7$: INC 


; Routine Size: 
; Maximum stack 


16(SP),R1 
Ri, RG 
#17 RG 
#1,14(SP) 
4$ 

R1 oR3 

R3 


3 
2 


R 
R 
#1 ,RO 
R1 ,WBUFF (R2) 
#2,R2 


$ 
2 
3,R1 
1 


RO 
RO, #400 


49 words 


depth per invocation: 


~SBTTL GEN1 GENERATOR FOR OPTION 1 
JSR R1,$SAVE4 


5 words 


OFFSET 
SECTOR,* 


* COMP. FLAG 
*,SECT 


SECT 


SECT,* 


*, COUNT 

*,* (OFFSET) 
* OFFSET 
COUNT 
COUNT,* 


SECT 
SECT,* 


COUNT 
COUNT,* 


SECT 
SECT,* 


* , COUNT 
SECT, * (OFFSET) 
,OFFSET 


SEQ 0108 
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wee GENERATOR FOR OFTION 1 


3358 ;MLX4 
3359 ;: 

3360 

3361 ; 2935 
3362 ; 2936 
3363 ; 2937 
3364 ; 2938 
3365 ; 2939 
3366 ;: 2940 
3367 ; 2941 
3368 ; 2942 
3369 ; 2943 
3370 ;: 2944 
3371 ; 2945 
3372 ; 2946 
3373 ; 2947 
3374 : 2948 
3375 ; 2949 
3376 ;: 2950 
3377 ;: 2951 
3378 : 2952 
3379 ; 2953 
3380 ; 2954 
3381 ; 2955 
3382 ; 2956 
3383 ; 2957 
3384 ; 2958 
3385 ; 2959 
3386 ; 2960 
3387 ; 2961 
3388 ; 2962 
3389 ; 2963 
3593 

3394 


3398 036156 005437 
3399 036162 005737 
3400 036166 002402 
3401 036170 005237 
ene 036174 000207 


rc > 


PATTERN NUMBER SELECTION 23-0ct-19 


23-Oct-19 


@oco 
oo 
<< 
bl “ 
wo 


ZSBTTL ‘PATTERN NUMBER SELECTION’ 


ROUTINE SELPAT 
BEGIN 


"ROUTINE : 


PATTERN = 


PURPOSE : 


: NOVALUE = 


SELPAT 
TO SELECT THE NEXT PATTERN NUMBER IN OPTION 2. 


THIS ROUTINE AUTOMATICALLY COMPLEMENTS THE CURRENT 
PATTERN NUMBER AND EXAMINES THE SIGN OF THE RESULT. 
IF THE RESULT IS NEGATIVE, THEN IT IS TAKEN TO BE 
THE PATTERN NUMBER OF A COMPLEMENT PATTERN AND A 
"RETURN' IS EXECUTED. IF, HOWEVER, THE RESULT !S 
POSITIVE, THEN AN ENTIRELY NEW PATTERN NUMBER IS 
REQUIRED. THE NEW PATTERN NUMBER IS OBTAINED BY 
INCREMENTING THE OLD. 


(PATTERN) ; 


If .PATTERN GEQ 0 


THEN PATTERN = 


RETURN; 
END; 
030714 
030714 
030714 


-PATTERN + 1; 


-SBTTL ee PATTERN NUMBER SELECTION 


SELPAT: NEG PATTERN : 
TST PATTERN : 
BLT 1$ 
INC PATTERN : 
18: RTS PC ; 


; Routine Size: 8 words — ; 
; Maximum stack depth per invocation: 0 words 


TOPS=20 Bliss-16 ¥2(206) 
PA:<ROSEN>MLX4.BLI.1 (18) 


SEQ 0109 


2956 
2958 


2959 
2937 
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2998 END; 


3000 [(-5 10 -1] : BEGIN 

3001 PATNUM 
3002 VALUE 

3003 END; 


3005 (6 T0 10] : BEGIN 

3006 PATNUM 
3007 VALUE 

3008 END; 


3010 ([-10 T0 -6] : BEGIN 
3011 PATNUM 
3012 VALUE 
3013 END; 
3014 TES; 


-(.PATTERN) - 1; 
%B'°0101'; 


ATTERN - 6; 
1111" 


P 
iB 


-(,PATTERN) - 6; 
78'0000'; 


StLPAT PATTERN NUMBER SELECTION SEQ 0110 
3413 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
tie ; USING THE PATTERN TABLE 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (19) 
| 3616; 2964 XSBTTL ‘USING THE PATTERN TABLE' » 
3417 ; 2965 
| 3618; 2966 ROUTINE GETCNTS(PATTERN) = 
| $019: 2967 BEGIN 
3420 ; 2968 
3421 ; 2969 =!+ 
3422 ; 2970! * ROUTINE: GETCNTS (PATTERN) 
3423 ; 2971 | 
3424 ; 2972 | PURPOSE: TO POINT TO THE APPROPRIATE BLOCK OF THE PATTERN 
| 3425; 2973! TABLE AND GRAB THE VALUES WHICH ARE REQUIRED FOR THE 
age ; sore ! PATTERN GENERATOR FOR OPTIONS 2 AND 4. 
ese 3 sore ! ARGUMENT : PATTERN = THE CURRENT PATTERN NUMBER. 
3430 ; 2978 | RESULTS: (1) WvaLue' RECEIVES THE VALUE WHICH IS RETURNED FOR 
3431 ; 2979! THE SUBROUTINE. IT IS THE 4-BIT BINARY AMOUNT WHICH 
3432 ; 2980 ! WILL BE USED AS THE CONTENTS OF A NIBBLE OF COMPLEMENT 
3433 ; 2981 | DATA. 
3434 ; 2982 | 
oe : Bat ! (2) "DATA_COUNT' RECEIVES THE NUMBER OF NIBBLES OF DATA. 
3437 ; 2985 (3) "COMP_COUNT' RECEIVES THE NUMBER OF NIBBLES OF 
3438 ;: 2986! COMPLEMENT DATA 
3439 ; 2987 i+ 
3440 ; 2988 
3441: 2989 LOCAL 
3442 ; 2990 PATNUM, VALUE; 
3443 ; 2991 
3444 ; 2992 SELECTONE .PATTERN OF 
3445 ; 2993 SET 
3446 ; 2994 
3447 ; 2995 [1105]: BEGIN 
3448 ; 2996 PATNUM = .PATTERN - 1; 
3449 ; 2997 VALUE = %B8'1010'; 


MLX4 
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SELPAT PATTERN NUMBER SELECTION 


3469 ;MLX4 


WAM 
PAAAAANA UIA UIT 
SCoQooooooooooo 
FEETE SEES S SS 
Ww 
~ 


POMOPOR OO OS es 
WN —SOOOnNOulfun— 


000207 


USING THE PATTERN TABLE 


DATA_COUNT = .PATTBLC.PATNUM,COUNT1); 
COMP_COUNT = .PATTBLL.PATNUM,COUNT2); 
RETURN .VALUE; 
END; 
-SBTTL GETCNTS USING THE PATTERN TABLE 
005150 GETCNTS:JSR R1,$SAVE2 é 
000010 MOV 10(SP) ,RO ; PATTERN,* 
BLE 1$ 
000005 CMP RO,#5 
BGT 1$ 
MOV RO,R1 ; *,PATNUM 
DEC R1 : PATNUM 
000012 MOV #12,R2 : *, VALUE 
BR 4$ ; 
177773 1$: CMP RO,#-5 
BLT 2$ 
TST RO 
BGE 2$ 
177777 MOV #-1,R1 : ©,PATNUM 
SUB RO,R1 ; *,PATNUM 
000005 MOV #5,R2 3; *, VALUE 
BR 4$ ; 
000006 2$: CMP RO, #6 
BLT 3$ 
000012 CMP RO,#12 
BGT 3$ 
MOV RO,R1 : *,PATNUM 
000006 SUB #6,R1 ; *,PATNUM 
000017 MOV #17,R2 : *, VALUE 
BR 4$ i 
177766 3$: CMP RO,#-12 
BLT 4$ 
177772 CMP RO, #-6 
BGT $ 
177772 MOV #-6,R1 ; *,PATNUM 
SUB RO,R1 ; *,PATNUM 
CLR R2 3; VALUE 
- 4$: ASL R1 - 
ASL R1 
032536 030716 MOV PATTBL(R1) ,DATA. COUNT 
032540 030720 MOV PATTBL#2(R1),COMP.COUNT : 
nov R2.RO ; VALUE,* 


arer? 


743 TOPS=-20 Bliss-16 v2(206) 
:05 PA: <ROSEN>MLX4.BL1.1 


(19) 


SEQ Q111 


seve 
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GETCNTS USING THE PATTERN TABLE SEQ 0112 


3525 ; SMLX4 23-0ct-1980 15:01:43 TOPS 
3526 ; USING THE PATTERN TABLE 23-0¢t-1980 14:57:05 PA:< 


3529 ; Routine Size: 56 words 
3530 ; Maximum stack depth per invocation: 3 words 


~ 


—— ene 


J 9 
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GETCNTS USING THE PATTERN TABLE 
, 3538 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
$276 3 NIBBLE GENERATOR 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (20) 
3541 ; 3022 XSBTTL ‘'NIBBLE GENERATOR’ 
3542 ; 3023 
3543 ; 3024 ROUTINE FILLER(BUFFER,WRDCNT, VALUE): NOVALUE = 
3544 ; 3025 BEGIN !* 1 * 
3545 ; 3026 
3546 ; 3027 !+ 
sete ; ase | ROUTINE: FILLER(BUFFER,WRDCNT, VALUE) 
3549 ; 3030 | PURPOSE: TO LOAD A CHOSEN WRITE BUFFER, ONE NIBBLE AT A TIME, 5 A 
3550 ;: 3031! PARTICULAR PATTERN, FOR A SPECIFIED NUMBER OF 16-BIT WORDS. 
$205 3 te ! THIS ROUTINE IS THE HEART OF THE GENERATOR FOR OPTIONS a AND 4. 
3553 ; 3034: THE "FILLER" ROUTINE IS A LOOP WHICH WILL ALTERNATE BETWEEN 
3554 ; 3035! THE TWO COUNTS AND FILL THE APPROPRIATE NUMBER OF NIBBLES OF 
3555 ; 3036 THE CHOSEN BUFFER WITH THE CONTENTS OF ‘VALUE’. EVERY TIME 
3556 ; 3037 | A COUNT IS EXHAUSTED, THE OTHER COUNT IS STARTED UP AGAIN, 
3557 ; 3038! AND EACH TIME 4 NEW COUNT IS BEGUN, ‘VALUE’ IS COMPLEMENTED. 
3558 ; 3039! NOTE THAT THE FIRST COUNT THAT WILL BE USED WILL ALWAYS BE 
3559 ; 3040 ! "DATA_COUNT', SO THAT THE BUFFER WILL BE REPETITIONS OF: 
$200 : ae) | DATA, COMP, DATA, COMP ... 
seek 3 er ARGUMENTS: (1) BUFFER = THE STARTING ADDRESS OF THE CHOSEN WRITE BUFFER. 
re : ot (2) WRDCNT = THE NUMBER OF WORDS OF PATTERN TO BE GENERATED. 
3566 ; 3047 | (3) VALUE = NIBBLE OF DATA TO BE PLACED IN THE WRITE BUFFER 
3567 ; 3048 '- 
3568 ; 3049 
3569 ; 3050 LOCAL 
3570 ; 3051 NIBBLE, OFFSET, FLAG, THE_COUNT; 
3571 ; 3052 
3572 ; 3053 FLAG = 0; 
3573 ;: 3054 OFFSET = 0; 
3574 ;: 3055 NIBBLE = 0; 
3575 ; 3056 
3576 ; 3057 WHILE 1 DO 
3577 : 3058 BEGIN '*2* 
3578 : 3059 FLAG = NOT .FLAG; 'FLIP THE FLAG 
3579 ; 3060 VALUE = NOT .VALUE; HAND THE DATA 
3580 ; 3061 
3581 ;: 3062 IF .FLAG EQL 0 'CHOOSE A COUNT 
3582 ; 3063 THEN 
3583 ; 3064 THE_COUNT = .COMP_COUNT 
3584 ; 3065 ELSE 
3585 ;: 3066 THE_COUNT = .DATA_COUNT; 
3586 ; 3067 
3587 ; 3068 DECR COUNT FROM .THE_COUNT TO 1 DO ‘EXHAUST THE COUNT 
3588 ; 3069 BEGIN !* 3 * 
3589 ; 3070 ( co ereh + (.OFFSET))<.NIBBLE, 4 0> = VALUE; 'LOAD THE NIBBLE 
3590 ; 3071 NIBBLE = (((.NIBBLE) + 4) MOD 16); ‘CHANGE NIBBLE POINTER 
3591 ;: 3072 If .NIBBLE EQi 0 
3592 : 3073 THEN 


SEQ 0113 


MLXG MACRO. M1113 feen tame 09:59 PAGE 159 
GETCNTS USING THE PATTERN TABLE 
3594 ;MLX4 
Seep 3 NIBBLE GENERATOR 
3597 ; 3074 BEGIN !* 4 * 
3598 ; 3075 BREAK; 
3599 ; 3076 OFFSET = .OFFSET + 2; 
3600 ; 3077 WRDCNT = .WRDCNT - 1; 
3601 ; 3078 IF .WRDCNT EQL 0 
3602 ; 3079 THEN RETURN; 
3603 ; 3080 END; ‘!* 4 * 
3604 ; 3081 END; '® * 
3605 ; 3082 END; 'e 2 
3606 ; 3083 END; ‘e 1 * 
3610 
3611 -SBTTL 
3615 036356 004137 005222 FILLER: JSR 
3616 036362 005001 CLR 
3617 036 00500 CLR 
3618 036 005002 CLR 
3619 036370 005101 1$: COM 
3620 036372 005166 000016 COM 
3621 036376 005701 TST 
3622 036400 001003 BNE 
3623 036402 013704 030720 MOV 
036406 000402 BR 
3625 036410 013704 030716 2$: MOV 
26 036414 010403 3$: MOV 
27 036416 003764 BLE 
28 036420 010546 4$ MOV 
3629 036422 066616 000024 ADD 
3630 036426 010246 MOV 
3631 036430 012746 000004 MOV 
3032 036434 016646 000024 MOV 
3633 036440 004737 004502 JSR 
036444 010216 MOV 
3635 036446 062716 000004 ADD 
3636 036452 012746 000020 MOV 
3637 036456 004737 005070 JSR 
3638 036462 010002 MOV 
3639 036464 001011 BNE 
3640 036466 104422 TRAP 
3641 036470 062705 000002 ADD 
3642 036474 0053 000032 DEC 
3643 036500 001003 BNE 
3644 036502 062706 000012 ADD 
3645 036506 000207 5$: RTS 
3646 036510 062706 000012 6$: ADD 
3647 036514 005303 DEC 
3648 036516 001340 BNE 


2$ 

"geben ts 
DATA.COUNT ,R4 
R4,R3 


R5,-(SP) 
24(SP), (SP) 
R2,-(SP) 

#4, -(SP) 
24(SP) ,-(SP) 
PC ,BLSPU2 

R P) 


oR 


23-Oct-19 
23-Oct-19 


FILLER NIBBLE GENERATOR 
SSAVES 


Se Se Se Be Se Be Be 


743 TOPS=20 Bliss-16 V2(206) 
5 PA: <ROSEN>MLX4.BL1.1 


; *,THE.COUNT 
° *, THE. COUNT 


THE .COUNT , COUNT 
OFFSET,* 
BUFFER,* 
NIBBLE,* 
VALUE ,* 


NIBBLE,* 


* ,NIBBLE 


* OFFSET 
WRDCNT 


COUNT 


(20) 


SEQ 0114 


3071 
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FILLER NIBBLE GENERATOR SEQ 0115 
>MLX4 23-0¢t-1980 15:01:43 TOPS 
: NIBBLE GENERATOR 23-0ct-1980 14:57:05 PA:< 
BR 1$ H 3057 


; Routine Size: 50 words — : 
; Maximum stack deoth per invocation: 11 words 





] 
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3664 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
3665 ; GENERATOR FOR OPTION 2 23-0ct-198C 14:57:05 PA:<ROSENDMLX4.BLI.1 (21) 
3667 ; 3084 XSBITL ‘GENERATOR FOR OPTION 2' 

3668 ; 3085 

3669 ; 3086 ROUTINE GEN2 : NOVALUE = 

3670 ; 3087 BEGIN 

3671; 3088 

3672 ; 3089! ++ 

3673 ; 3090 |! ROUTINE: GEN2 

3674 ; 3091! 

3675 ; 3092 |! PURPOSE: TO GENERATE THE ENTIRE WRITE BUFFER (WHICH 

3676 ; 3093! WILL BE USED IN CONJUNCTION WITH OPTION 2) 

3677 ; 3094 |! BASED ON PATTERN TABLE ENTRIES. 

3678 ;: 3095 t-- 

3679 ; 3096 

3680 ; 3097 LOCAL 

3681 ; 3098 VALUE; 

3682 ; 3099 

3683 ; 3100 VALUE = GETCNTS(.PATTERN); 

3684 ; 3101 FILLER(WBUFF ,BUFSIZ,.VALUE); 

3685 ; 3102 RETURN; 

3686 ; 3103 END; 

3690 

3691 ~SBTTL GEN2 GENERATOR FOR OPTION 2 

3695 036522 013746 030714 GEN2: MOV PATTERN, -(SP) 3 3100 
3696 036526 004737 036176 JSR PC,GETCNTS 

3697 036532 012716 010706 MOV #WBUFF, (SP) : 3101 
3698 036536 012746 004000 MOV #4000 ,-(SP) 

3699 036542 010046 MOV RO,-(SP) 3; VALUE,* 

3700 036544 004737 036356 JSR PC,FILLER 

3701 036550 062706 000006 ADD #6,SP : 3086 
a/0e 036554 000207 RTS PC 

3704 3; Routine Size: 14 words 

$703 ; Maximum stack depth per invocation: 3 words 


Sie PA RE I eee 
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GEN2 GENERATOR FOR OPTION 2 SEQ 0117 


3713 :MLX4 23-Oct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
3714 ; GENERATOR FOR OPTION 3 23-Oct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (22) 


ZSBTTL ‘GENERATOR FOR OPTION 3° 
ROUTINE GEN3(COMP_FLAG): NOVALUE = 
BEGIN 


'ee 
ROUTINE : GEN3(COMP_FLAG) 


i 

i 

! PURPOSE: TO GENERATE THE ENTIRE WRITE BUFFER WHICH WILL BE MADE 
‘ UP OF WORDS WHICH CONTAIN THE UNIQUE COUNT FROM ONE TO 
BUF SIZ. 

i ARGUMENT: COMP_FLAG = THIS IS AN INDICATOR OF WHETHER OR NOT TO 
COMPLEMENT EVERY WORD IN THE WRITE BUFFER. 


LOCAL 
OFFSET; 


OFFSET = 0; 
IF .COMP_FLAG 
THEN TGENERATE COMPLEMENT DATA 
mice onan FROM 1 TO BUFSIZ DO 
(WBUFF + (.OFFSET)) = NOT (.COUNT); ‘COMPLEMENT DATA 
OFFSET = .OFFSET + 2; 
END 
ELSE 'GENERATE REGULAR DATA 
nce COUNT FROM 1 TO BUFSIZ DO 
(WBUFF + (.OFFSET)) = (. COUNT); “(REGULAR DATA 
OFFSET = .OFFSET + 2; 
END; 
RETURN; 


END; 


AWW AWN ANNAN AN NIW WN AIN WIAA NNW NIN ANN ANNAN AWN 
ed ed ed 
B&F AWWW AAW PO NINPI NIPPON 2 2 Ss St OO > + 4 a4 4 
MS DOONAN WN — © ODNAUE WN | O OONOAOUFWR "OC DONOuU 


Ww 
N“N 
Ww 
“ 
Be Be Se Oe Be Ge Be Be Be Be Se Oe Se Se Oe Oe Be Be Be Oe Oe Se Be Oe Ss He SF Ss Oe Ss BE Ss Oe Se Se He Hs Oe os 


3759 -SBTTL GEN3 GENERATOR FOR OPTION 3 
3763 036556 010146 GEN3: MOV R1,-(SP) : 3106 
3764 036560 005001 CLR R1 ; OFFSET 3123 
3765 036562 032766 000001 000004 BIT #1,4(SP) ; *,COMP.FLAG 3125 
3766 036570 001415 BEQ 23 

3767 036572 012700 000001 MOV #1,R0 ; *, COUNT 3127 





Ecc CREE as RS See ee ER ren 
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GENS GENERATOR FOR OPTION 3 SEQ 0118 
| 3769 3MLKG ; 23-Cct-1980 15:01:43 TOPS 
| gi ; GENERATOR FOR OPTION 3 23-0ct-1980 14:57:05 PA:< 
arr 036576 010061 010706 1$: MOV RO, WBUFF (R1) 3 9 44 * (OFFSET) 3129 
3773 036602 005161 010706 COM WBUFF(R1) + *(OFFSET) 
3774 036606 062701 000002 ADD #2,R1 3 + OFFSET 3130 
3775 036612 005200 INC RO ; COUNT 3127 
3776 036614 020027 004000 CMP RO, #4000 : COUNT,* 
3777 036620 003766 BLE 1$ 
3778 030622 000412 AR 4$ ; 312 
3779 036624 012700 000001 2$: MOV #1,R0 3; *,COUNT 3134 
3780 036630 010061 010706 3$: MOV RO, WBUFF(R1) ; COUNT, *(OFFSET) 3136 
3781 036634 062701 000002 ADD #2,R1 : *, OFFSET 3137 
3782 036640 005200 INC RO ; COUNT 3134 
3783 036642 020027 004000 CMP RO,#4000 ; COUNT,* 
3784 036646 003770 BLE 3$ 
3785 036650 012601 4$: MOV (SP)+,R1 3 3106 
3786 036652 000207 RTS PC 
3788 ; Routine Size: 31 words — 
HEH ; Maximum stack depth per invocation: 2 words 





' 
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(GENS GENERATOR FOR OPTI 
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3798 ; 
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000207 


3820 
3821 
3822 
3823 
3824 
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23-Oct-19 
23-0ct-19 


oooo 
oo 
—— 
ow 
nO 


GENERATOR FOR OPTION 4 
ZSBTTL ‘GENERATOR FOR OPTION 4° 


ROUTINE GEN4(MARPAT,BUFFER) : NOVALUE = 
BEGIN 


'¢ 
| * ROUTINE : GEN4 (MARPAT ,BUFFER) 
i PURPOSE : nahe IS THE GENERATOR WHICH IS USED FOR OPTION 4, THE 
i MARCH TEST. IT BEGINS AT THE START OF THE CHOSEN 
BUFFER AND GENERATES 256 WORDS IN THE EXACT WAY THAT 
! OPTION 2 DOES. 
ARGUMENTS: (1) MARPAT - THE MARCH PATTERN NUMBER 
x (2) BUFFER - THE STARTING ADDRESS OF THE CHOSEN BUFFER 
LOCAL 
VALUE; 


VALUE = GETCNTS‘.MARPAT); 
FILLER(.BUFFER,256,. VALUE) ; 


TOPS=20 Bliss-16 V2(206) 
PA:<ROSEN>MLX4.BLI.1 (23) 


RETURN; 
END; 

.SBTTL GEN4 GENERATOR FOR OPTION 4 
000004 GEN4: MOV 4(SP),-(SP) ; MARPAT,* 
036176 JSR PC,GETCNTS 
000004 MOV 4(SP), (SP) ; BUFFER,* 
000400 MOV #400,-(SP) 

MOV RO,-(SP) ; VALUE,* 
036356 JSR PC,FILLER 
000006 ADD #6,SP : 

RTS PC 

; Routine Size: 14 words 


; Maximum stack depth per invocation: 3 words 


SEQ 0119 


3165 
3166 


3146 
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GENS GENERATOR FOR OPTI SEQ 0120 


Ww 
oo 
uw 
nm 


SER NSSBLEA= 


905 036766 5202 R2 
3906 036770 020227 004000 CMP R2, #4000 ; COUNT,* 


SMLKG 23-0ct-1980 15:01:43 TOPS=-20 Bliss-16 ver 206) 

$ee7 3 GENERATOR FOR OPTION 5 23-Oct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (24) 

3855 ; 3169 SBTTL ‘GENERATOR FOR OPTION 5° 

3856 ; 3170 

3857 ; 3171 ROUTINE GENS : NOVALUE = 

3858 ; 3172 BEGIN 

3859 ; 3173 

3860 ; 3174 44 

3861 ; 3175 ROUTINE: GENS 

3862 ; 3176 

3863 ; 3177 !' PURPOSE: THIS IS THE GENERATOR WHICH IS USED FOR OPTION 5S. 

3864 ; 3178 =! IT BEGINS AT THE START OF THE WRITE BUFFER, AND GENERATES 

3865 ; 3179 =! A FULL BUFFER OF RANDOM DATA. THE FIRST 3 WORDS OF THE BUFFER 

seco 3 eet RECEIVE THE 3 SEEDS WHICH WERE USED IN THE GENERATION. 

3868 ; 3182 LOCAL 

3869 ; 3183 OFFSET; 

3870 ; 3184 

3871 : 3185 (WBUFF + 0) = .SEED1; !THE FIRST 3 WORDS OF THE 

3872 ; 3186 (WBRUFF + 2) = .SEED2; ‘WRITE BUFFER RECEIVE THE 

3873 ; 3187 (WBUFF + 4) = .SEED3;  '3 GENERATING SEEDS. 

3874 ;: 3188 OFFSET = 6; 

3875 ;: 3189 

3876 ; 3190 INCR COUNT FROM 4 TO BUFSIZ DO 

3877 ;: 3191 BEGIN 

3878 ; 3192 RN(); 'NOTE: USING SIGNED VALUES (FULL 16 BITS) 

3879 ; 3193 

3880 ; 3194 BREAK; 

3881 ; 3195 (WBUFF + .OFFSET) = .RANDOM; 

3882 ; 3196 OFFSET = .OFFSET + 2; 

3883 ; 3197 END; 

3684 ; 3198 

3885 ; 3199 RETURN; 

3886 ; 3200 END; 

3890 

3891 .SBITL GENS GENERATOR FOR OPTION 5 

3895 036710 004137 005150 GENS: JSR SSAVE2 : 31 

3896 036714 013737 005344 010706 MOV seep WBUF F : 31 

3897 036722 013737 005346 010710 MOV SEED2 ,WBUFF +2 ; 31 

3898 036730 013737 005350 010712 MOV SEED3.WBUFF +4 ; 31 

3899 036736 012701 000006 MOV #6,R1 : *, OFFSET 31 

3900 036742 012702 000004 MOV #4 ,R2 > *, COUNT 31 

3901 036746 004737 005256 1$: JSR PC,RN : 31 

3902 036752 104422 TRAP 22 

3903 036754 013761 005352 010706 MOV RANDOM ,WBUF F (R1) : *,* (OFFSET) 31 

3904 036762 062701 000002 ADD #2,R1 : *, OFFSET 31 
3905 7 00 INC : COUNT 31 
j 
| 
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GENS GENERATOR FOR OPTION 5 


E 10 


3908 7 MLX4 

Hs 8 GENERATOR FOR OPTION 5 

3911 036774 003764 BLE 1$ 

ae 036776 000207 RTS PC - 
3914 ; Routine Size: 28 words 

3915 ; Maximum stack depth per invocation: 3 words 


| 
3920 
3991 


23-0c t-1980 
23-0c t-1980 


SEQ 0121 
§:01:43 TOPS 
4:57:05 PA:< 

3171 


CG LL CL i ts «lll 


F 10 
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GENS GENERATOR FOR OPTION 5 SEQ 0122 
3923 sMLX4 23-0¢t-1980 15:01:43 TOPS=-20 Bliss-16 V2(206) 
$a5¢ 3 SYSTEM ERROR DETECTOR 23-0ct-1980 14:57:05 PA:<ROSEND>MLX4.BLI.1 (25) 
3926 ; 3201 XSBTTL ‘SYSTEM ERROR DETECTOR’ 

3927 ; 3202 

3928 ; 3203 ROUTINE SYSERR(LUN) = 

3929 ; 3204 BEGIN !* 1* 

3930 ; 3205 

3931 ; 3206 !+ 

3932 ; 3207 | * ROUTINE: SYSERR(LUN) 

3933 ; 3208 =! 

eats ; ay PURPOSE : (1) TO SCAN FOR SYSTEM ERRORS AFTER A TRANSFER HAS ENDED. 
3936 ; 3211! (2) PRINT ERROR MESSAGES IF APPROPRIATE: 

3937 ; 3212 =! 

3938 ; 3213! A) ERROR MESSAGES DURING RETRIES WILL NOT 

3939 ; 3214S! BE PRINTED 

3940 ; 3215! 

3941 ; 3216! B) THE OPERATOR HAS THE'ABILITY TO INHIBIT THE 
a ; esc PRINTING OF DATA ERRORS, BUT NOT SYSTEM ERRORS. 
3944 ; 3219! (3) DECIDE ON A VALUE TO RETURN WHICH WILL INDICATE THE 
3945 ; 3220 | RELATIVE SEVERITY OF THE ERROR. 

3946 ; 3221 | 

3947 : 3222 | ARGUMENT: 1 UN = THE CURRENT LOGICAL UNIT NUMBER 

Ae ; it | CO TO NUMBER OF DRIVES MINUS 13. 

3950 ; 3225 | RESULT: VALUE RETURNED FOR THE SUBROUTINE SHOWS TYPE OF ERROR: 
3951 ; 3226 0 = NO ERRORS AT ALL 

3952 ; 3227 | 1 = RETRY ALLOWED FOR THESE TYPES OF ERRORS 
3953 ; 3228 | 2 = FATAL CONTROLLER ERROR 

3954; 3229 | 3 = FATAL DRIVE ERROR 

3955 ; 3230! 4 = UNCORRECTABLE DATA ERROR 

3956 ; 3231! 5 = CORRECTABLE DATA ERROR 

3957 ; 3232 | 

4 3 eSe7 FIGURE OUT WHICH VALUE TO RETURN BY THE FOLLOWING SCHEME: 

3960 ; 3235 | (1) IF THERE IS A CHOICE BETWEEN DATA ERROR AND SYSTEM ERROR, 

3961 ; 3236 =! FIRST CHOOSE THE DATA ERROR. 

3962 ; 3237 | (2) IF THERE 1S A CHOICE BETWEEN FATAL AND NON-FATAL ERROR, 

3963 ;: 3238 FIRST CHOOSE THE FATAL ERROR. 

3964 ;: 3239 | (3) IF THERE IS A CHOICE BETWEEN CONTROLLER ERROR AND DRIVE ERROR, 
3965 ; 3240 ! FIRST CHOOSE CONTROLLER ERROR. 

3966 ; 3241 i 

3967 ; 3242 

3968 ; 3243 LABEL 

3969 ; 3244 PURPOSE _2_CODE; 

3970 ; 3245 

3971 ; 3246 LOCAL 

3972 : 3247 ERR2,ERR3,ERR4,ERRS,ERR6,ERR7; 

3973 ;: 3248 

3974 ; 3249 ERR2 = INACTIVE; 

3975 ;: 3250 ERR3 = INACTIVE; 

3976 ; 3251 ERR4 = INACTIVE; 

3977 ; 3252 ERRS = INACTIVE; 
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| 3979 MLXG 27-Oct-1980 15:01:43 
| 3980 : SYSTEM ERROR DETECTOR 33-0¢t-1980 14:57:05 
3982 ; 3253 ERR6 = INACTIVE; 
3983 : 3954 ERR? = INACTIVE: 
3984 ; 3255 
3985 ;: 3256 '+ 
| 3986 : 3257 i THIS IS THE CODE FOR PURPOSE 1: 
3987 ;: 3258 le 
3988 : 3259 
3989 ; 3260 IF .SC 
3990 : 3261 THEN 'THERE ARE SOME ERRORS -- FIND OUT WHAT KIND 
3991 : 3262 BEGIN !*2* 
3992 : 3263 IF (NED) OR (NEM) OR (.PGE)) 
3993 ; 3264 THEN ERR2 = ACTIVE: 
3994 : 3265 IF (DLT) oR (PE) OR (.MXF) OR (MOPED OR (.MCPED) 
3995 ;: 3266 THEN ERR3 = IVE; 
3996 : 3267 IF ((.WCE) AND ( ECCDIS EOL 0)) 
3997 ; 3268 THEN ERR3 = ACTIVE; 
3998 : 3269 IF CC.UNS) OR {. 1AES OR (.AOE) OR (.RMR) OR (.ILR) OR (.ILF)) 
| 3999 : 3270 THEN ERR = ACTIVE: 
4000 : 3271 IF ((.0PI1) OR (.DPAR) OR (.CPAR)) 
4001 : 3272 THEN ERRS = ACTIVE; 
4002 : 3273 IF ((.DCK) OR (.CRC) OR (.SGL)) 
4003 ; 3274 THEN ERR? = ACTIV 
4004 : 3275 IF ((.WCE) AND (.ECCDIS EQL 1)) 
4005 : 3276 THEN ERR? = ACTIVE; 
4006 : 3277 IF ((.ECH) OR (.UNC)) 
4007 : 3278 THEN ERR6 = ACTIVE; 
4008 : 3279 END '#2* 
4009 : 3280 ELSE 'THERE ARE NO ERRORS -- RETURN SUCCESSFULLY 
4010 : 3281 RETURN 0;  'NO ERRORS AT ALL 
4U11 ; 3282 
4012 ; 3283 '¢ 
4013 : 3284 i THIS IS THE CODE FOR PURPOSE 2: 
4014 : 3585 
4015 : 3286 i 
4016 : 3287 BEGIN 3 . 
4017 : 3288 IF RETRYING 
4018 : 3289 THEN LEAVE LABEL (NO PRINTOUTS AT ALL) 
4019 : 3290 
4020 : 3291 BEGIN 4 
4021 : 3292 IF ERROR PRINTOUTS ARE ALLOWED 
4022 ; $293 ' THEN 
4023 ; 3294 ' BEGIN 5A 
4024 : 3295 IDENTIFY THE LOGICAL UNIT i 
4025 : 3296 i SCAN FOR & PRINT DATA ERRORS 3 
4026 : 3297 END 5A 
4027 : 3298 LSE 
4028 : 3299 i BEGIN 5B 
4029 : 3300 i IF THERE ARE SYSTEM ERRORS TO REPORT 
4030 : 3301 THEN IDENTIFY THE LOGICAL UNIT 
| 4031 ; 3302 ‘ ELSE LEAVE LABEL 
4032 ; 3303 ' END 58 
| 4033 ; 3304 i SCAN FOR & PRINT SYSTEM ERRORS 


TOPS=20 Bliss-16 V2(206) 


PA: <ROSEN>MLX4.BLI.1 


(25) 


SEQ 0123 


H 10 
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GENS GENERATOR FOR OPTION 5 SEQ 0126 
4035 ;MLX4 23-Oct-1980 15:01:43  TOPS=20 Bliss-16 v2(206) 
4036 SYSTEM ERROR DETECTOR 23-Oct-1980 14:57:05  PA:<ROSENDMLX4.BLI.1 (25) 
4038 ; 3305 END 

4039 ; 3306 END 3 

4040; 3307 ia 

4061 | 3308 

| 4042 ; 3309 PURPOSE 2_CODE: 

| 4043 ; $310 BEGIN “+ 3 
4044 : 3311 IF .RETRYING 
4045 : 3312 THEN LEAVE PURPOSE_2_CODE  !(NO PRINTOUTS AT ALL) 
4046 : 3313s ELSE 
4047 ; 3314 BEGIN !* 4 * 

4048 ; 3315 IF .ERROUT 
4049 ; 3316 THEN 
4050 : 3317 BEGIN !* SA * 
4051 ; 3318 SAYWHO( . LUN) ; 
4052 : 3319 PRINTB(SAY1, BuR10) ; 
4053 ; 3320 '" ERROR BITS SET: 
4054 ; 3321 IF .ERR7 
4055 : 3322 THEN 
4056 ; 3323 BEGIN 
4057 ; 3324 IF .DCK 
4058 ; 3325 THEN PRINTB(FMT15,MLB20); 
4059 ; 3326 IF .CRC 
4060 ; 3327 THEN PRINTB(FMT1S,MLB22). 
4061 : 3328 IF .SGL 
4062 ; 3329 THEN ih eet hi MLB23); 
4063 ; 3330 IF ((.WCE) AND (.ECCDIS EQL 1)) 
4064 ; 3331 THEN PRINTECPMTIS. MLBO6); 
4065 ; 3332 END; 
4066 ; 3333 IF .ERR6 
4U67 : 3334 THEN 
4068 ; 3335 BEGI 
4069 : 3336 IF .ECH 
4070 : 3337 THEN PRINTB(FMT15,MLB21); 
4071 : 3338 BS 
4072 ; 3339 THEN PRINTB(FMT15,MLB24); 
4073 : 3340 END; 
4074 : 3341 END ‘!* SA® 
4075 : 3342 ELSE 
4076 : 3343 BEGIN !* 5B * 
4077 : 3344 LF. ERR2) OR (. ERRS) OR (.ERRA) OR (.ERRS)) 
4078 : 3345 THEN 
4079 : 3346 BEGIN 
4080 ; ot Be iets Soe SAYWHO(.LUN) ; 
4081 : 3348 eee PRINTB(SAY1 , PHR10) : 
4082 3... “3349 '*ERROR BITS SET: 
fee OBS “3 3350 END ; 
4084 ; 3351 ELSE LEAVE PURPOSE_2_CODE; 
4085 ; 3352 END; !* 5B * 
4086 ; 3353 IF .ERR2 
4087 : 3354 THEN 
4088 ; 3355 BEGIN 
4089 ; 3356 IF .NED 


MLXG MACRO M1113 24-OCT-80 09:59 PAGE 170 
GENS GENERATOR FOR OPTION 5 


4091 ;MLX4 23-Oct-1980 15:01:43 

1244 ; SYSTEM ERROR DETECTOR 23-0ct-1980 14:57:05 

4094 ; 3357 THEN PRINTB(FMT15,MLB2); 
/ 4095 ; 3358 IF .NEM 

40% ; 3359 THEN PRINTB(FMT15,MLB3); 
| 4097 : 3360 F LP 
| 4098 ; 3361 THEN PRINTB(FMT15,MLB4); 
4099 ;: 3362 END; 

4100 ; 33463 IF .ERR3 

4101 ; 3364 THEN 

4102 ; 3365 BEGIN 

4103 ; 3366 IF .DLT 

4106 ; 3367 THEN PRINTB(FMT15,MLB5); 

4105 ; 3368 IF ((.WCE) AND (.ECCDIS EQL 0)) 

4106 ; 3369 THEN PRINTB(FMT15,MLB6); 

4107 ; 3370 IF .PE 

4108 ; 3371 THEN PRINTB(FMT15,MLB7); 

4109 ; 3372 IF .MXF 

4110 ; 3373 THEN PRINTB(FMT15,MLB8); 

4111 : 3374 IF .MDPE 

4112 ; 3375 THEN PRINTB(FMT15,MLB9); 

4113 ; 3376 IF .MCPE 

4114 ; 3377 THEN PRINTB(FMT15,MLB10); 

4115 : 3378 END; 

4116; 3379 IF .ERR4 

4117 : 3380 THEN 

4118 ; 3381 BEGIN 

4119 ; 3382 IF .UNS 

4120 ; 3383 THEN PRINTB(FMT15,MLB11); 

4121 ; 3384 F .IA 

4122 ; 3385 THEN PRINTB(FMT15,MLB12); 

4123 ; 3386 F LA 

4126 ; 3387 THEN PRINTB(FMT15,MLB13); 

4125 ; 3388 IF .RMR 

4126 ; 3389 THEN PRINTB(FMT15,MLB14); 

4127 ;: 3390 F .ILR 

4128 ; 3391 THEN PRINTB(FMT15,MLB15); 

4129 ; 3392 IF .ILF 

4130 ; 3393 THEN PRINTB(FMT15,MLB16); 

4131 ; 3394 END; 

4132 ; 3395 IF .ERRS 

4133 ; 3396 THEN 

4134 ; 3397 BEGIN 

4135 ; 3398 IF .OPI 

4136 ; 3399 THEN PRINTB(FMT15,MLB17); 

4137 ; 3400 IF .DPAR 

4138 ; 3401 THEN PRINTB(FMT15,MLB18); 

4139 ; 3402 IF .CPAR 

4140 ; 3403 THEN PRINTB(FMT15,MLB19); 

4141 : 3404 END; 

4142 ; 3405 END; ‘!*4* 

4143 ;: 3406 END; ‘#3 

4144 ; 3407 

4145 : 3408 '¢ 


TOPS=20 Bliss-16 V2(206) 


PA: <ROSEN>MLX4.BLI.1 


(25) 


SEQ 0125 
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GENS GENERATOR FOR OPTI 
4147 ;MLXG 
4 > 


148 ; 

| = 4149 

4150 ; 3409 
4151 ; 3410 
4152 ; 3411 
4153 ; 3412 
4154 ; 3413 
4155 ; 3414 
4156 ; 3415 
4157 ; 3416 
4158 ; 3417 
4159 ; 3418 
4160 ; 3419 
4161 ; 3420 
4162 ; 3421 
4163 ; 3422 
4164 ; 3423 
4165 ; 3424 
4166 ; 3425 
4167 ; 3426 
4168 ; 3427 
4169 ; 3428 

| 4170 ; 3429 
4171 ; 3430 
4172 ; 3431 
4173 ; 3432 
4174 ; 3433 
4175 ; 3434 
4179 
4180 
4184 037000 004137 
4185 037004 005005 
4186 037 005004 
4187 037010 005001 


4201 037066 005777 


SEQ 0126 
23-0ct-1980 15:01:43 TOPS-20 Bliss-16 V2(206) 
SYSTEM ERROR DETECTOR 23-0ct-1980 14:57:05 PA: <ROSEND>MLX4.BLI.1 (25) 
THIS IS THE CODE FOR PURPOSE 3: 
IF .ERR6 'UNRECOVERABLE DATA ERROR (NO RETRY ALLOWED) 
THEN RETURN 4; 
IF .ERR7 "RECOVERABLE DATA ERROR (RETRY TO CLASSIFY) 
THEN RETURN 5; 
IF .ERR2 ‘CONTROLLER FATAL ERROR 
THEN RETURN 2; 
IF .ERRG 'DRIVE FATAL ERROR 
THEN RETURN 3; 
IF (.ERR3 OR .ERRS) 'NON-FATAL ERRORS 
THEN RETURN 1 
ELSE 
BEGIN 
IF (C.ERROUT) AND (NOT .RETRYING)) 
THEN meee eet tl PHR 11); 
"SC SET BUT NO SYSTEM ERRORS FOUND" 
RETURN 1; 
END; 
END; '* | * 
-SBTTL SYSERR SYSTEM ERROR DETECTOR 
005222 SYSERR: JSR R1,$SAVE5 c 3203 
CLR R5 3; ERR2 3249 
CLR R4 3 ERR3 3250 
CLR R1 3; ERRS 3251 
CLR R2 ; ERRS 3252 
CLR - (SP) ; ERR6 3253 
CLR R3 3 ERR7 3254 
173340 TST @ML.REG ; 3260 
ra BMI 1$ 
041220 JMP 49$ 
010000 173334 1$: ae | aumchimames ti ; 3263 
004000 173324 ot cael 
002000 173314 aM - eageeapeesntty 
000001 2$: MOV #1,R5 ; *,ERR2 3264 
173302 3$: TST aML .REG+10 : 3265 


——--—— 
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|SYSERR SYSTEM ERROR DETECTOR 


| 


4203 
04 


iad 
= 
~m 
Oo 
Www 
~~N 
is 
~m 
~ 


Fo? ot ak at et et et ee eee eee ee 
w 


PNMNPONND @ @ eS 
FWN SO OOVour lw 


032777 020000 
032777 001000 
032777 000400 
032777 020000 


012704 000001 
032777 040000 


005737 002254 


012704 000001 
032777 040000 


032777 002000 
032777 001000 
132777 000004 
132777 000002 
132777 000001 


012701 000001 
032777 020000 


132777 000040 
132777 000010 


012702 000001 
005777 173072 


100410 
032777 020000 
Oe 040000 


012703 000001 
032777 040000 


002254 


000001 
000100 


173032 
000001 


o 
nN 
w 
NS 
—~ 
~N 


[SSSulzs 


173272 
173262 
173252 
173232 


173226 


173210 
173200 
173170 
173160 
173150 
173140 


173124 
173114 
173104 


173110 
173100 


173032 
000001 


173012 


sMLX4 


4$: 
5$: 


6$: 


SYSTEM ERROR DETECTOR 


4$ 
#20000 ,aML .REG+10 
4 eae certains 
 haatacs ernie 
#20000 ,aML.REG 

5$ 


#1,R4 

#40000, ML .REG+10 
ECCDIS 

6$ 


#1,R4 

aan entriamantic: 
#2000 ,@ML.REG+14 
| a tment 
om 
 Ctecctamiatnn 
#1,QML.REC+14 

8$ 

#1,R1 

area tain tie 
"arama 
#10,QML.REG+14 
10$ 


#1,R2 

1 Ni 

SezOes OM. .RERRS 
#40000 ,aML .REG+42 
12$ 


#1,R3 

#40000, aML.REG+10 
ECCDIS,#1 

13$ 


#1,R3 

#100, aM. .REG+14 
aM .REG+42 

15 

#1, (SP) 


23-Oct-19 
23-Oct-19 


oo 


SEQ 0127 


TOPS 
PA:< 


3266 
3267 


3268 
3269 


3270 
3271 


3272 
3273 


3274 
3275 


3276 
3277 


3273 


f----- 


% 
| 


4259 
ree 


4261 
ryt bg: 


4309 037646 
4310 O376s0 
4311 037660 
4312 037662 
4313 037670 
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YSERR SYSTEM ERROR DETECTOR 


000001 


041062 
000001 


000020 


000002 


000001 
172710 
007172 


006502 
000002 


000006 
020000 
007202 


006502 
000002 


000006 
040000 
007206 


006502 
000002 


000006 
040000 
002254 
007072 
006502 
000002 
000006 
000001 
000100 


032356 


092260 


172702 


172646 


172560 
000001 


000006 
172510 


7MLX4 


15$: 


16$: 
17$: 


18$: 


19$: 


20$: 


21$: 


SYSTEM ERROR DETECTOR 


#1, RETRYING 
17$ 

43$ 

#1, ERROUT 
3§ 

20(SP),-(SP) 

PC,SAYWHO 

#PHR10, (SP) 


#SAY1,-(SP) 
Se i 


#1,R3 

QML .REG+14 
18$ 
#MLB20,-(SP) 


#FMT15,-(SP) 
#2,-(SP) 


#6,SP 

#20000, aML.REG+42 
19$ 

#MLB22,-(SP) 


#FMT15,-(SP) 
= he 


#6,SP 

#40000, aML.REG+42 
20$ 

#¥LB23,-(SP) 
#FMT15.-(SP) 
#2,-(SP) 

S ° 0 

#6,SP 

#40000 ,aML .REG+10 
ECCDIS,#1 

21$ 

#MLB6,-(SP) 
#FMT15,-(SP) 
#2,-(SP) 

SP.RO 

#6,SP 

#1.,6(SP) 

25 

#100, aML .REG+14 
22% 


SEQ 0128 


23-Oct-1980 15:01:43 
23-0ct-1980 14:57:05 


; LUN,* 


3; *,ERR7 


: >,* 


; 


; SP,* 


: * ERR6 


; “* 
oer 


—— ow * 
—aw“ce or ——erererr © 
——— 


TOPS 
PA:< 


3311 
3312 


3315 
3318 
3319 


3321 
3324 
3325 


3326 
3327 


3328 
3329 


3330 


3331 


3333 
3336 


-——-—- — a es 


ae eo ho Rae Tee: 
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SYSERR SYSTEM ERROR DETECTOR SEQ 0129 
4315 SMLX4 23-0ct-1980 15:01:43 TOPS 
| 4316 : SYSTEM ERROR DETECTOR 53-0ct-1980 14:57:05  PA:< 
4318 037672 012746 007176 MOV #MLB21,-(SP) : 3337 
4319 037676 012746 006502 MOV #FMT15.<(SP) 
4320 037702 012746 000002 MOV #2,-(SP) . 
4321 037706 010600 MOV SP RO > SP,* 
4322 037710 104414 TRAP 14 
4323 037712 062706 000006 ADD #6,SP 
4324 037716 005777 172504 228:  =TST aML .REG+42 : 3338 
4325 037722 100043 BPL 25$ 
4326 037724 012746 007212 MOV #¥LB24,-(SP) : 3339 
4327 037730 012746 006502 MOV #FMT15,-(SP) 
4328 037734 012746 000002 MOV #2,-(SP) 
4329 037740 010600 MOV SP.RO : SP,* 
4330 037742 104414 TRAP =—s_‘14 
4331 037744 062706 000006 ADD #6,SP 
4332 037750 000430 BR 25$ : 3317 
4333 037752 032705 000001 23$: BIT #1,R5 + *, ERR2 3344 
4334 037756 001011 BNE 24$ 
4335 037760 032704 000001 BIT #1,R4 : *, ERR3 
4336 037764 001006 BNE 24$ 
4337 037766 032701 000001 BIT #1,R1 : * ERRG 
4338 037772 001003 BNE 24$ 
4339 037774 032702 000001 BIT #1,R2 >, ERRS 
4340 040000 001604 BEQ 16$ 
4341 040002 016646 000020 26$: MOV 20(SP) ,-(SP) : LUN,* 3347 
4342 04 004737 033436 JSR PC, SAYWHO 
434 $043 012716 007542 MOV #PHR10, (SP) : 3348 
4344 040016 012746 006514 MOV #SAY1,-(SP) 
4345 040022 012746 000002 MOV #2,-($P) 
4346 040026 010600 MOV SP.RO : SP,* 
4347 040030 104414 TRAP ‘14 
4348 040032 062706 000006 25$: ADD #6,SP : 3346 
4349 040036 032705 000001 BIT #1,R5 > *,ERR2 3353 
4350 040042 001452 BEQ 28$ 
4351 040044 032777 010000 172322 BIT #10000, aML.REG+10 : 3356 
4352 040052 001412 BEQ 26$ 
4353 040054 012746 007052 MOV #MLB2,-(SP) : 3357 
4354 040060 012746 006502 MOV #FMT15,-(SP) 
4355 040064 012746 000002 MOV #2,-(SP) 
4356 040070 010600 MOV SP RO : SP,* 
4357 040072 104414 TRAP ‘14 
4358 040074 062706 000006 ADD #6,SP | 
4359 040100 032777 004000 172266 26$: BIT #4000, aML.REG+10 : 3358 | 
4360 040106 001412 BEQ 7$ 
1 040110 012746 007056 MOV #MLB3,-(SP) : 3359 | 
2 040114 012746 006502 MOV #FMT15,-(SP) 
4363 040120 012746 000002 MOV #2,-(SP) 
040124 010600 MOV SP,RO : SP,* 
4365 040126 104414 TRAP ‘14 
366 040130 062706 000006 ADD #6,SP 
4367 040134 032777 002000 172232 27%: BIT #2600, aML.REG+10 ; 3360 | 
368 040142 001412 BEQ 2 ; 
4369 040144 012746 007062 MOV #MLB4 ,-(SP) : 3361 


-- - ce - ——— — O ———---———-—- - — - — — 


N 10. 


/SYSERR SYSTEM ERROR DETECTOR SEQ 013C 
4371 SMLX4 23-Oct-1980 15:01:43 TOP 
cars ; SYSTEM ERROR DETECTOR 23-0ct-1980 14:57:05 PA:< 
4374 040150 012746 006502 MOV #FMT15,-(SP) 

4375 040154 012746 000002 MOV #2,-(SP) 
6 040160 010600 MOV SP,RO ; SP,* 
4377 040162 104414 TRAP ‘14 
8 040164 062706 000006 ADD #6,SP 
4379 040170 032704 000001 28%: BIT #1 RG : *, ERR3 3363 
4380 040174 001526 BEQ 34 
4381 040176 005777 172172 TST aML .REG+10 ; 3366 
4382 040202 100012 BPL 29$ 
4383 0402046 012746 007066 MOV #MLBS ,-(SP) F 3367 
4384 040210 012746 006502 MOV #FMT15 (SP) 
4385 040214 012746 000002 MOV #2,-(SP) 
4386 040220 010600 MOV SP.RO > SP,* 
4387 040222 104414 TRAP ‘14 
4388 040224 062706 000006 ADD #6,SP 
4389 040230 032777 040000 172136 29%: BIT #40000, aML .REG+10 : 3368 
4390 040236 001415 BEQ 30$ 
4391 040240 005737 002254 TST ECCDIS 
4392 040244 001012 BNE 30$ 
4393 040246 012746 007072 MOV #MLB6,-(SP) : 3369 
4394 040252 012746 006502 MOV #FMT15,-(SP) 
4395 040256 012746 000002 MOV #2,-(SP) 
4396 040262 010600 MOV SP,RO : SP,* 
4397 040264 104414 TRAP =s-_'14 
4398 040266 062706 000006 ADD #6,SP 
4399 040272 032777 020000 172074 30$: BIT #26000, aML.REG+10 : 3370 
4400 040300 001412 BEQ 31$ 
4401 040302 012746 007076 MOV #MLB7,-(SP) : 3371 
4402 040306 012746 006502 MOV #FMT15,-(SP) 
4403 040312 012746 000002 MOV #2,-(SP) 
4404 040316 010600 MOV SP.RO : SP,* 
4405 040320 104414 TRAP -‘14 
040322 062706 000006 ADD #6,SP 
4407 040326 032777 001000 172040 31$: BIT #1000, aML.REG+10 ; 3372 
040334 001412 BEQ 32$ 
09 040336 012746 007102 MOV #MLBB,-(SP) ; 3373 
4410 040342 012746 006502 MOV #FMT15,-(SP) 
1 040346 012746 000002 MOV #2,-(SP) 
4412 040352 010600 MOV SP,RO ; SP,* 
4413 040354 104414 TRAP 14 
4414 040356 062706 000006 ADD #6,SP 
040362 032777 000400 172004 328: BIT #400,aML .REG+10 ; 3374 
4416 040370 00141 BEQ 33$ 
4417 040372 012746 007106 MOV #MLB9,-(SP) ; 3375 
4418 040376 012746 006502 MOV #FMT15,-(SP) 
4419 040402 012746 000002 MOV #2,-(5P) 
420 040406 010600 MOV SP,RO : SP,* 
4421 040610 104414 TRAP —s--:14 
4422 040412 062706 000006 ADD #6,SP 
4423 040416 032777 020000 171740 33$: BIT #26000, aML .REG : 3376 
4424 040424 001412 BEQ 4$ . 
4425 040426 012746 007114 MOV #MLB10,-(SP) : : 3377 
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SYSERR SYSTEM ERROR DETECTOR SEQ 0131 
| 4427 sMLXG 23-0ct-1980 15:01:43 TOPS 
Auge ; SYSTEM ERROR DETECTOR 23-Oct-1980 14:57:05 PA:< 
te%o 040432 012746 006502 MOV #FMT15,-(SP) 
| 4431 040436 012746 000002 MOV #2,-(SP) 
4432 040442 010600 MOV SP RO : SP,« 
4433 040464 104414 TRAP 14 
4434 0404 062706 000006 ADD #6,SP 
4435 040452 032701 000001 34$: BIT #1.R1 : *,ERRS 3379 
4436 040456 001524 BEQ 40$ 
4437 040460 032777 040000 171712 BIT #40000 ,amL .REG+14 : 3382 
040466 001412 BEQ 35$ 
4439 040470 012746 007122 MOV #MLB11,-(SP) : 3383 
4440 040674 012746 006502 MOV #FMT15,-(SP) 
4441 040500 012746 000002 MOV #2,-(SP) 
4442 040504 010600 MOY SP ,RO ; SP,* 
3 040506 104414 TRAP 14 
4444 040510 062706 000006 ADD #6,SP 
4445 040514 032777 002000 171656 35%: BIT #2500. aML.REG+14 : 3384 
4446 040522 001412 BEQ 36$ 
4447 040524 012746 007126 MOV #MLB12,-(SP) : 3385 
4448 040530 012746 006502 MOV #FMT15.-(SP) 
4449 040534 012746 000002 MOV #2,-(SP) 
4450 040540 010600 MOV SP RO : SP,« 
4451 040542 104414 TRAP ‘14 
4452 040544 062706 000006 ADD #6,SP 
4453 040550 032777 001000 171622 36%: BIT #1000, aML.REG+14 : 3386 
4454 040556 001412 BEQ 37$ 
4455 040560 012746 007132 MOV #MLB13,-(SP) : 3387 
4456 040564 012746 006502 MOV #FMT15,-(SP) 
4457 040570 012746 000002 MOV #2,-(SP) 
4458 040574 010600 MOV SP,RO : SP,* 
4459 040576 104414 TRAP 14 
4 062706 000006 ADD #6,SP 
461 040604 132777 000004 171566 37$: BITB #4, aML.REG+14 ; 3388 
4462 040612 001412 BEQ 38$ 
4463 040614 012746 007136 MOV #MLB14,-(SP) ; 3389 
4464 040620 012746 006502 MOV #FMT15,-(SP) 
4465 040624 012746 000002 MOV #2,-(SP) 
4466 040630 010600 MOV SP RO : SP,* 
4467 040632 104414 TRAP 14 
68 040634 062706 000006 ADD #6,SP 
4469 040640 132777 000002 171532 38%:  ®BITB #2,aML.REG+14 ; 3390 
470 040646 001412 BEQ 39$ 
4471 040650 012746 007142 MOV #MLB15,-(SP) ; 3391 
4472 040654 012746 006502 MOV #FMT15,-(SP) 
3 04 012746 000002 MOV #2,-(SP) 
4474 040664 010600 MOV SP.RO : SP,* 
4475 040666 104414 TRAP ‘14 
040670 062706 000006 ADD #6,SP 
4477 060674 132777 000001 171476 39%: ®BITB #1, aML.REG+14 : 3392 
4478 040702 001412 BEQ 40$ 
4479 040704 012746 007146 MOV #MLB16,-(SP) ; 3393 
4480 040710 012746 006502 MOV #FMT15,-(SP) 
4481 040714 012746 000002 MOV #2,-(SP) 
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‘SYSERR SYSTEM ERROR DETECTOR 


| 4483 
| 4484 


4485 
4486 040720 
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45 


= 
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45 


3 
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w 


= 
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w 


> 
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ae 
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FENSRSSENSENSSES 


000006 
000001 


020000 
007152 


006502 
000002 


000006 
000040 
007156 


006502 
000002 


000006 
000010 
007164 


006502 
000002 


000006 
000001 


000004 
000005 
000002 
000003 


000001 
000001 


171434 


171400 


171344 


002260 
032556 


sMLX4 


40$: 


41$: 


42$: 


43$: 
44$: 
45$: 
46$: 


47$: 


SYSTEM ERROR DETECTOR 


SP ,RO 
14 


#6,SP 
#1,R2 


43 
#20000 ,@ML .REG+14 
41$ 


#MLB17,-(SP) 
#FMT15,-(SP) 
#2,-(SP) 
SP,RO 


#6,SP 

#40, aML.REG+14 
42$ 
#MLB18,-(SP) 
#FMT15.-(SP) 


#2,-(SP) 
SP ,RO 
14 


#6,SP 
#10,aML.REG+14 
43$ 


#MLB19,-(SP) 


#FMT15,-(SP) 
#2,-(SP) 
SP ,RO 


#6,SP 
#1, (SP) 
44$ 

#4 ,RO 
5 


#1,RETRYING 


SEQ 0132 
23-0¢t-1980 15:01:43 TOPS 
23-0ct-1980 14:57:05 PA:< 

. SP,* 
; *,ERRS 3395 
3398 
3399 
; SP,* 
3400 
3401 
: + .* 
3402 
3403 
: SP,* 
; *,ERR6 3412 
3413 
; ERR? 3415 
3416 
; ERR2 3418 
3419 
; ERRG 3421 
3422 
; ERR3 3424 
; ERRS 
3428 
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SYSERR SYSTEM ERROR DETECTOR SEQ 0133 
4539 3 MLX4 23-0ct-1980 15:01:43 TOPS 
ry 8 : SYSTEM ERROR DETECTOR 23-0ct-1980 14:57:05 PA:< 
4542 041162 001012 BNE 48$ 
4543 041164 012746 007562 MOV #PHR11,-(SP) Z 3429 
4544 041170 012746 006514 MOV #SAY1,-(SP) 

4545 041174 012746 000002 MOV #2,-(SP) 

4546 041200 010600 MOV SP ,RO ; SP,* 
041202 104414 TRAP 14 
041204 062706 000006 ADD #6,SP — 
041210 012704 000001 48$: MOV #1,R4 3 3424 
041214 010400 MOV R4,RO ; 3204 
041216 000401 BR 50$ 
041220 005000 49$: CLR RO ; 3203 

4553 041222 005726 50$: TST (SP)+ 

ieee 041224 000207 RTS PC 

4556 ; Routine Size: 587 words 

4557 ; Maximum stack depth per invocation: 13 words 
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SYSERR SYSTEM ERROR DETECTOR 
4565 ;MLX4G 23-0ct-1980 15:01:43 
1268 ; DATA COMPARISON ROUTINE 23-0ct-1980 14:57:05 
4568 ; 3435 XSBTTL ‘DATA COMPARISON ROUTINE’ 
4569 ; 3436 
4570 3437 ROUTINE DOUBLE_CHECK(W_POINTER,R_POINTER,COUNT) = 
4571 3438 BEGIN ‘!* 1 * 
4572 3439 
4573 3440 
re fe et} * ROUTINE: DOUBLE _CHECK (W_POINTER,R_POINTER, COUNT) 
4576 3443 PURPOSE : TO DOUBLE CHECK THE ECC DETECTION LOGIC AFTER A 


SUCCESSFUL READ COMMAND. THE WRITE AND READ BUFFERS 
ARE COMPARED, AND NO ERRORS SHOULD BE FOUND UNDER 
NORMAL CIRCUMSTANCES. 


ARGUMENTS: W_POINTER = POINTER TO THE WRITE BUFFER 
R-POINTER = POINTER TO THE READ BUFFER 
COUNT = THE NUMBER OF WORDS TO COMPARE 


RESULTS: VALUE we ey IS EITHER: 


'¢ 
i 
' 
i 
i 
i 
, is, 
3447 | 
i 
i 
i 
i 
7 ERRORS WERE 
1. 


4588 3455 

4589 3456 

4590 3457 LOCAL 

4591 3458 VALUE, OFFSET, GOOD, BAD; 

4592 3459 

4593 3460 LABEL 

4594 3461 LOOP; 

4595 3462 

4596 3463 OFFSET = 0; 

4597 3464 VALUE = 0; 

4598 3465 

4599 3466 LOOP: 

4600 3467 BEGIN !* 2* 

4601 3468 INCR 1 FROM 1 " -COUNT DO 

4602 3469 BEGIN !* 3 * 

4603 3470 GOOD = .(.W_POINTER + .OFFSET) 
4604 ~ 3471 BAD = .(.R_POINTER + .OFFSET) 
4605 3472 IF .GOOD Eat .BAD 

4606 3473 THEN OFFSET = .OFFSET + 2 
4607 3474 ELSE 

4608 3475 BEGIN !* 4 * 

4609 3476 ies AS pu POINTER + .OFFSET); ‘ADDRESS OF GOOD 
4610 3477 LEAV 

4611 3478 END; 4 ‘ 

4612 3479 END; i¢ ; * 

4613 3480 END; !*2¢ 

4614 3481 

4615 3482 RETURN , VALUE; 'EITHER 0 OR THE ADDRESS OF GOOD DATA 


3483 END; ‘* 1 


anaes ; 
yw 
RAR 
. ee . See Gee . ere Se Ge Se Oe Se Oe @ Se Get . Se eee Se Ge Gee = . — Se Ge Ge Ge Ge Ge Ge & Sees Ge Oe e — eee . 
WWW 
> 
wu 
wr 


TOPS=20 Bliss-16 V2(206) 
PA:<ROSEN>MLX4.BLI.1 (26) 


F OUND 
N > 0 = ADDRESS IN WRITE BUFFER WHERE ERROR WAS FOUND 


SEQ 0134 
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SYSERR SYSTEM ERROR DETECTOR SEQ 0135 
4621 sMLXG 23-0¢t-1980 15:01:43 TOPS 
rr z DATA COMPARISON ROUTINE 23-0ct-1980 14:57:05 PA:< 
4624 
| 6625 .SBTTL DOUBLE.CHECK DATA COMPARISON ROUTINE 
4629 041226 DOUBLE . CHECK: 
4630 041226 004137 005222 JSR R1,$SAVES 5 3437 
4631 041232 005746 TST -(SP) 
4632 041234 005003 CLR R3 : OFFSET 3463 
4633 041236 005001 CLR R1 : VALUE 3464 
4634 041240 005002 CLR R2 s 5 3468 
4635 041242 000417 BR 3$ 
| = 4636 041244 010304 1$: MOV R3,R4 : OFFSET,* 3470 
4637 041246 066604 000024 ADD 24(SP) RG > W.POINTER,®* 
4638 041252 011416 MOV (R4), (SP) ; *,GO0D 
4639 041254 010305 MOV R3,R5 : OFFSET,* 3471 
4640 041256 605 000022 ADD 22(SP) RS ; R.POINTER,* 
4641 041262 011500 MOV (RS) RO : *,BAD 
4642 041264 021600 CMP (SP) ,RO > *,BAD 3472 
4643 0412 001003 BNE 2$ 
4644 041270 062703 000002 ADD #2,R3 > *, OFFSET 3473 
4645 041274 000402 BR 3$ ; 3472 
4646 041276 010401 2$: MOV R4,R1 > *, VALUE 3476 
647 041 000404 BR 4$ ; 3477- 
4648 041302 005202 3: INC R2 | 3468 
9 041304 020266 000020 CMP R2,20(SP) ; 1, COUNT 
4650 041310 003755 BLE 1$ 
4651 041312 910100 4$: MOV R1,R0 > VALUE,* 3438 
4652 041314 005726 TST (SP) + ; 3437 
rr 041316 000207 RTS PC 
4655 ; Routine Size: 29 words 
4056 ; Maximum stack depth per invocation: 7 word, 
4661 
| 
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DOUBLE .CHECK DATA COMPARISON ROUTINE 


46646 ;MLXK4 23-0ct-1980 15:01:43 fOPS-20 Bliss-16 v2(206) 
mat : COMMAND INITIATION AND TERMINATION 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (27) 
4667 ; 3484 XSBTTL ‘COMMAND INITIATION AND TERMINATION’ 
4668 ; 3485 
4669 ; 3486 ROUTINE WAITER: NOVALUE = 
4670 ; 3487 BEGIN 
| 4672 ; 3489 '¢ 
4673 ; 3490 |! THIS ROUTINE DOES NOTHING, BUT IT IS CALLED BY ‘START_IT' TO 
| 4674 ; 3491 |! WASTE TIME WHILE WAITING TO BEGIN OR END AN ML11 TRANSFER. 
4675 ; 3492 I+ 
4676 ; 3493 
4677 ; 3494 BREAK; 
4678 : 3495 RETURN; 
sort ; 3496 END; 
4684 -SBTTL WAITER COMMAND INITIATION AND TERMINATION 
4688 041320 104422 WAITER: TRAP 22 3 
4689 041322 000207 RTS PC ; 
4690 
4691 ; Routine Size: 2 words ; 
Pets ; Maximum stack depth per invocation: 0 words 


SEQ 0136 


3487 
3486 
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WALTER COMMAND INITIATION AND TERMINATION SEQ 0137 


4700 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
read ; COMMAND INITIATION AND TERMINATION 23-0¢t-1980 14:57:05 PA: <ROSEN>MLX4.8L1.1 (28) 
4703 ; 3497 ROUTINE START_IT(COMMAND,.UN,WRDCNT,BUFFER,SECTOR) = 
| 4704 ; 3498 BEGIN 
4705 ; 3499 
4706 ; 3500 ‘++ 
ree : $20) ROUTINE: START_IT(COMMAND ,LUN,WROCNT ,BUFFER, SECTOR) 
4709 ; 3503 |! PURPOSE: 10 INITIATE A TRANSFER TO OR FROM THE ML71 
4710 ; 3504 ! O WAIT FOR THE TRANSFER TO COMPLETE, AND TO CALL 
atts 3 244 ' We "SYSERR’ ROUTINE TO LOOK FOR RESULTING ERRORS. 
4 : ' 
| 66713 ; 3507 |! ARGUMENTS: (1) COMMAND = THE FUNCTION CODE FOR THE TYPE OF TRANSFER 
| 47a: 3508 | DESIRED. THIS CODE WILL BE SENT TO THE MLCS1 
4715 ; 3509 |! REGISTER TO START THE OPERATION, SINCE IT 
4716 ; 3510 ! ALSO CONTAINS THE GO BIT. 
4717 ; 3511 |! 
4718 ;: 3512 ! (2) LUN - LOGICAL UNIT NUMBER 
4719 ; 3513! 
are ; ae (3) WRDCNT = NUMBER OF 16-BIT WORDS TO TRANSFER 
4722 ; 3516! (4) BUFFER = THE ADDRESS IN MAIN MEMORY OF THE SELECTED 
4723 ; 3517 |! WRITE OR READ BUFFER 
4724 ; 3518 ! 
rift s ehh (5) SECTOR THE TRANSFER'S STARTING ADDRESS IN THE ML11 
4727 ; 3521 !' RESULTS: VALUES RETURNED ARE IDENTICAL TO THOSE DEFINED ABOVE IN 
4728 ; 3522! THE "SYSERR' ROUTINE. 
4729 ; 3523° !-- 
4730 ; 3524 
4731 ; 3525 LOCAL 
4/32 ; 3526 TEMP, READY_BIT, RIN; 
4733; 3527 
4734 ; 3528 LABEL 
4735 ; 3529 LOOP; 
4736 ; 3530 
4737 ; 3531 ! 
4738 ; 3532 ' WAIT FOR DRIVE READY: 
4739 ; 3533 ' 
4740 ; 3534 
4741 ; 3535 UNIT = -DRIVE; ‘SELECT THE UNIT 
4742 ; 3536 READY_BIT = 0; 
4743 ; 3537 UNTIL” “READY “BIT NEQ 0 DO ‘WALT FOR DRIVE READY 
4746 ; 3538 BEGIN 
47645 ; 3539 WAITER 
4746 : 3540 READY Blt = .MLCS1 AND BIT7; 
4747 ; 3541 END; 
4748 : 3542 
4769 ; 3543 ' 
4750 ; 3544 ' INITIALIZE BEFORE EACH TRANSFER: 
4751 ; 3545 ' 
4752 ; 3546 
4753 ; 3547 CLR = 1; ‘CONTROLLER CLEAR 
4754 ;: 3548 MLCS1 = DRV_CLR; ‘DRIVE CLEAR 


1 11 
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WAITER COMMAND INITIATION AND TERMINATION SEQ 0138 
4756 ;MLX4 23-0¢t-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
ofet ; COMMAND INITIATION AND TERMINATION 23-0ct-1980 14:57:05 PA: <ROSEND>MLX4.BLI.1 (28) 
4759 3549 UNIT = .DRIVE; ‘PUT BACK THE DRIVE NUMBER 
4760 3550 
4761 3551 ' 

4762 $228 ' SET UP THE REQUIRED ENABLE/DISABLE BITS: 
4763 355 ' 
4764 3554 
4765 3555 DCK_EN = 1; ‘ALLOW REPORTING OF DATA CHECK ERRORS 
4766 3556 IF [REFRESH ' 
4767 3557 THEN REF_MAR = 1; 'TURN ON REFRESH MARGINING IF OPERATOR SELECTED IT 
4768 3558 IF .ECCDI 
4769 3559 THEN ECC_DIS = 1; 'TURN OFF ECC IF OPERATOR SELECTED 11 
4770 3560 
4771 3561 ' 
4772 3562 ! SEND REQUIRED INFORMATION TO DEVICE REGISTERS: 
4773 3563 ‘ 
4774 3564 
MLWC = -(.WRDCNT); ~~ ‘WORD COUNT REGISTER ete. 
MLBA = .BUFFER; 'BUS ADDRESS REGISTER (ADDRESS IN MAIN MEMORY) 
MLDA = .SECTOR; 'DESIRED SECTOR ADDRESS REGISTER (ADDRESS IN ML11) 
4778 3568 
4779 3569 ' 
4780 3570 ' GO: 
4781 3571 \ 
4782 3572 
4783 3573 1I_AM_DONE = INACTIVE; 
4784 3574 TEMP~= .COMMAND + BIT6; 'SET THE INTERRUPT ENABLE BIT WHILE LOADING THE 
4785 3575 MLCS1 = .TEMP; 'CONTROL AND STATUS REGISTER WITH THE COMMAND 


: WAIT FOR DRIVE TO FINISH: 


READY_BIT = .MLCS1 AND BIT7; 
ca sREADY BIT NEQ 0) AND (.1 _AM_DONE EQL INACTIVE)) 
HEN 


BEGIN 
IF (NOT .RETRYING) 
THEN 


BEGIN 

SAYWHO(.LUN) ; 

IF .COMMAND EQL WR_CMD 
THEN RTN = WRD16; 

IF .COMMAND EQL RD_ CMD 
THEN RIN = WRD 

IF .COMMAND ne ue CMD 
THEN RIN = 


J 11 
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WAITER COMMAND INITIATION AND TERMINATION SEQ 0139 
4812 ;MLX4 23-0ct-1980 15:01:43 TOPS=+20 Bliss-16 v2(206) 
4813 ; COMMAND INITIATION AND TERMINATION 23-Oct-1980 14:57:05  PA:<ROSEN>MLX4.BLI.1 (28) 
4815 ; 3601 PRINTB(FMT6, .WRDCNT,.RTN,WRD15,.SECTOR); 

4816 ; 3602 '"BEGAN YYYY WORD (227) AT SECTOR 2222722' 

| 4817: 3603 iWHERE (227) IS EITHER "WRITE’, 'READ’ OR ‘WRITE CHECK’ 

4818 ; 3604 PRINTB(SAY1,MSGO); 

| 4819: 3605 ‘INTERRUPT DID NOT OCCUR, BUT THE TRANSFER IS COMPLETE 

| 4820 ; 3606 END: 
4821 ; 3607 LEAVE LOOP; 
4822 : 3608 END; 
4823 ; 3609 END; 
4824 ;: 3610 END; 
4825 ; 3611 
tas8 5 sig RETURN SYSERR(.LUN); 'PASS ALONG THE ERROR VALUES THAT ‘SYSERR' OBTAINED. 
aBks 3 3614 END; 
4833 ~SBTTL START.IT COMMAND INITIATION AND TERMINATION 
4837 041324 START.IT: 
4838 041324 004137 005202 JSR R1,$SAVE4 ; 3497 
4839 041330 016604 000022 MOV 22(SP) RG > LUN,* 3535 
4840 041334 010402 MOV R4,R2 
4841 041336 006302 ASL R2 
4842 041340 016201 032440 MOV PTABLE .ADDR(R2) ,R1 
4843 041344 016103 000006 MOV 6(R1),R3 
4844 041350 042703 177770 BIC #177770,R3 
4845 041354 142777 000007 171012 BICB =: #7, , AML. REG+10 
4846 041362 150377 171006 BISB R3,aML.REG+10 
4847 041366 005003 CLR R3 : READY.BIT 3536 
4848 041370 020707 CMP PC,PC : 3537 
4849 041372 001007 1$: BNE 2$ 
4850 041374 004737 041320 JSR PC WAITER : 3539 
4851 041400 017703 170760 MOV @ML .REG,R3 + #,READY.BIT 3540 
4852 041404 042703 177577 BIC #177577.R3 + *-READY.BIT 

3041410 000770 BR 1$ : 3537 
4854 041412 152777 000040 170754 2%: BISB #40,aML.REG+10 : . 3547 
4855 041420 012777 000011 170736 MOV #11, aML REG : 3548 
4856 041426 016201 032440 MOV PTABLE .ADDR(R2) ,R1 : 3549 
4857 041432 016102 000006 MOV 6(R1) ,R2 b 
4858 041436 042702 177770 BIC #177770, R2 
9 041442 142777 000007 170724 BICB = #7, AML .REG*+10 

4860 041450 150277 170720 BISB R2,aML.REG+10 ‘ 
4861 041454 152777 000004 170726 BI1SB #4, aML.REG+24 : 3555 
4862 041462 032737 000001 002252 BIT #1 REFRESH : 3556 
4863 041470 001403 BEQ 
4864 041472 152777 000200 170710 BISB #200, aML.REG+24 : 3557 
4865 041500 032737 000001 002254 35: BIT #1 .ECCDIS : 3558 
4866 041506 001403  BEQ 4$ 


K 11 
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‘START.IT COMMAND INITIATION AND TERMINATION 

4868 sMLX4 

rt'4 ; COMMAND INITIATION AND TERMINATION 
4871 041510 152777 000002 170672 B1SB8 #2,aQML .REG+24 3 
4872 041516 016677 000020 170642 4$: MOV 20(SP), an. REG+2 ; WROCNT,* 
4873 041524 005477 170636 NEG amM_.R 
4874 041530 016677 000016 170632 MOV 16(SP), ai. REG+4 ; BUFFER,* 
4875 041536 016677 000014 170626 MOV 6¢o) ,OML .REG+6 ; SECTOR,* 
4876 041544 005037 032354 CLR M.DON E Z 
4877 041550 016601 000024 MOV 2uS8), R1 : COMMAND, * 
4878 041554 010102 MOV : ©, TEMP 
4879 041556 062702 000100 ADD $1 60cR2 : *, TEMP 
4880 041562 010277 170576 MOV R2,aML.REG ; TEMP,* 
4881 041566 005003 CLR R ; READY.BIT 
4882 041570 032737 000001 032354 5$: BIT #1,1.AM.DONE ; 
4883 041576 1067 BNE 9$ 
4884 041600 004737 041320 JSR PC WAITER : 
4885 041604 017703 170554 MOV aML.REG,R3 : *,READY.BIT 
4886 041610 042703 177577 BIC #177577,R3 : *,READY.BIT 
4887 041614 001765 BEQ 5$ : 
4888 041616 005737 032354 TST 1. AM.DONE 
4889 041622 001362 BNE 5$ 
4890 041624 032737 000001 032356 BIT #1, RETRYING : 
4891 041632 001051 BNE 9$ 
4892 041634 010446 MOV R4,-(SP) ; 
4893 041636 004737 033436, JSR PC, SAYWHO 
4894 041642 020127 000061 CMP R1,#61 : 
4895 041646 001002 BNE 6$ 
4896 041650 012702 006700 MOV #WRD16,R2 : *,RTN 
4897 041654 020127 000071 6$: CMP 1,871 : 
4898 041660 001002 BNE $ 
4899 041662 012702 006706 MOV #WRD17,R2 > *,RTN 
4900 041666 020127 000051 7$: CMP 1,451 : 
4901 041672 001002 BNE 
4902 041674 012702 007336 MOV #PHR1,R2 : *,RIN 
4903 041700 016616 000016 8$: MOV 16(SP), (SP) ; SECTOR,* 
4904 "D1 012746 006670 MOV #WRD15,-(SP) 
4905 047710 010246 MOV R2,-(SP) ; RIN,* 
4 041712 016646 000026 MOV 26(SP),-(SP) : WRDCNT,* 
4907 041716 012746 006020 MOV #FMT6,-(SP) 
4908 041722 012746 000005 MOV #5,-(SP) 
4 041726 010600 MOV J ; SP,* 
4910 041730 104414 TRAP 1 
4911 041732 012716 010424 MOV #MSGO, (SP) ; 
4912 041736 012746 006514 MOV #SAY1,-(SP) 
4913 041742 012746 000002 MOV #2,-(SP) 
4914 041746 010600 MOV SP,R : SP, 
4915 041750 104414 TRAP 14 
4916 041752 062706 000020 ADD #20,SP 3 
4917 041756 010446 9$: MOV R4,-(SP) : 
4918 041760 004737 037000 JSR PC,SYSERR 
4919 041764 005726 TST (SP)+ 

| 438% 041766 000207 RTS PC 

| 4922 : Routine Size: 146 words 

| 

aes 


SEQ 0140 


23-0ct-1980 15:01:43 
23-0ct-1980 14:57:05 


3604 


3593 
3612 


3497 
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‘START.I1T COMMAND INITIATION AND TERMINATION SEQ 0141 
4924 sMLXG 23-0¢t-1980 15:01:43 TOPS 
tose ; COMMAND INITIATION AND TERMINATION 23-0ct-1980 14:57:05 PA:< 
rp 4h ls ; Maximum stack depth per invocation: 13 words 


| 
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eats 1T COMMAND INITIATION AND TERMINATION SEQ 0142 
4935 ;MLX4 23-0¢t-1980 15:01:43 TOPS-20 Bliss-16 ver 206) 
ret ; COUNTING BYTES TRANSFERED 23-0ct-1980 14:57:05 PA:<ROSENDMLX4.BL1.1 (29) 
4938 ; 3615 ZSBTTL ‘COUNTING BYTES TRANSFERED' 
4939 ; 3616 
4940 ; 3617 ROUTINE UP_WR_COUNT(WORD_COUNT) : NOVALUE = 
4941 ; 3618 BEGIN 
4942 ; 3619 
4943 ; 3620 WR_COUNT = .WR_COUNT + (.WORD_COUNT * 2); 
4944 ; 3621 
4945 ; 3622 IF .WR_COUNT GEQ 20000 
4946 ; 3623 THEN 
4947 ; 3624 BEGIN 
4948 ; 3625 un THOUSANDS = .WR THOUSANDS + 20; 
4949 ; 3626 R_COUNT = .WR COUNT = 20000; 
4950 ; 3627 IF WR_ THOUSANDS GEQ 1000 
4951 ; 3628 —<" 
4952 ; 3629 BEGIN 
4953 ; 3630 WR_THOUSANDS = a THOUSANDS - 1000; 
4954 ; 3631 WR-MILLIONS = .WR_MILLIONS + 1; 
4955 ; 3632 IF~.WR MILLIONS wees 0 
4956 ; 3633 THEN WR MILLIONS = 0; 
4957 ;: 3634 END; 
4958 : 3635 END; 
4959 ; 3636 
4960 ; 3637 RETURN: 
rst 3 3638 END; 
4966 .SBTTL UP.WR.COUNT COUNTING BYTES TRANSFERED 
4970 041770 UP.WR. COUNT: 
4971 041770 016600 000002 MOV 2(SP),RO ; WORD.COUNT,* : 3620 
4972 041774 006300 ASL RO 
4973 041776 063700 032332 ADD WR. COUNT ,RO 
4974 042002 010037 032332 MOV RO,WR.COUNT 
4975 042006 020027 047040 CMP RO, #47040 ; WR.COUNT,* 3622 
4976 042012 002422 BLT 1$ 
4977 042014 062737 000024 032334 ADD #24,WR. THOUSANDS : 3625 
4978 042022 162737 047040 032332 SUB #47640,WR. COUNT : 3626 
4979 042030 023727 032334 001750 CMP WR. THOUSANDS , #1750 : 3627 
4980 042036 002410 BLT 1$ 
4981 042040 162737 001750 032334 SUB #1750,WR. THOUSANDS 3 3630 
4982 042046 005237 032336 INC WR MILLIONS 3 363 
4983 042052 100002 BPL 1$ 2 363 
4984 042054 005037 032336 CLR WR..MILLIONS § 363 
rh + 042060 000207 1$: RTS PC 3 361 
4987 : Routine Size: 29 words 


4988 ; Maximum stack depth per invocation: 0 words 


-_ Se ee = 
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UP ..WR. COUNT COUNTING BYTES TRANSFERED 


| 4997 
| 4998 


SEQ 0143 


r —_—_—_—_— _ — ee —— ae ee 
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'UP.WR. COUNT COUNTING BYTES TRANSFERED SEQ 0144 
5000 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
2001 ; COUNTING BYTES TRANSFERED 23-0c¢t-1980 14:57:05 PA: <ROSENDMLX4.BLI.1 (30) 
| 5003 ; 639 ROUTINE UP_RD_COUNT(WORD_COUNT) : NOVALUE = 
| $004 ; 640 BEGIN 
5005 ; 3641 
5006 ; 3642 RD_COUNT = .RD_COUNT + (.WORD_COUNT * 2); 
5007 ; 3643 
5008 ; 3644 IF .RD_COUNT GEQ 20000 
5009 ; 3645 THEN 
.° 5010 ; 3646 BEGIN 
$011 ;: 3647 RD_ THOUSANDS | : RD ag oF + 20; 
$012 ; 3648 RD-COUNT = .RD_COUNT = 2000 
5013 ; 3649 IF” .RD_ THOUSANDS GEQ 1009 
5014 ; 3650 THEN 
5015 ; 3651 BEGIN 
5016 ; 3652 RD_THOUSANDS = sho THOUSANDS - 1000; 
5017 ; 3653 RD_MILLIONS = .RD_MILLIONS + 1; 
5018 ; 3654 IF~.RD MILLIONS "Pes 0 
5019 ; 3655 THEN RDB MILLIONS = 0; 
5020 ; 3656 END; 
5021 ; 3657 END; 
5022 ; 3658 
5023 ; 3659 RETURN; 
ose ; 3660 END; 
5029 .SBTTL UP.RD.COUNT COUNTING BYTES TRANSFERED 
5033 042062 UP.RD. COUNT: 
5034 042062 016600 000002 MOV 2(SP),RO ; WORD.COUNT,* 3642 
5035 042066 006300 ASL RO 
5036 042070 063700 032340 ADD RD. COUNT ,RO 
5037 042074 010037 032340 MOV RO,RD.COUNI 
5038 042100 020027 047040 CMP RO. #47040 ; RD.COUNT,* 3644 
5039 042104 002422 BLT 
5040 042106 062737 000024 032342 ADD 1% RD. THOUSANDS : 3647 
5041 042114 162737 047040 032340 SUB #47040,RD. COUNT : 3648 
5042 042122 023727 032342 001750 CMP RD. THOUSANDS, #1750 3 3649 
5043 042130 002410 BLT 1$ 
5044 042132 162737 001750 032342 SUB #1750,RD. THOUSANDS : 3652 
5045 042140 005237 032344 INC RD .MILLIONS : 3653 
5046 042144 100002 BPL 1$ 2 3654 
5047 042146 005037 032344 CLR RD. MILLIONS ; 3655 
944 042152 000207 1$: RTS PC s 3639 
5050 ; Routine Size: 29 words 
5051 ; Maximum stack depth per invocation: 0 words 


Gee Seana Ss 


Ss sess sss -sssesse ee 


foo — — 
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(UP .RD. COUNT COUNTING BYTES TRANSFERED SEQ 0145 


| 5060 
| 


5061 


or 
| 
| 
| 
| 


----- - _—— —_$_ —_____—_ — 
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ieee COUNTING BYTES TRANSFERED 


5063 ;MLX4 
5064 ; 
5065 
5066 ; 3661 
5067 ; 3662 
5068 ; 3663 
5069 ; 3664 
5070 ; 3665 
5071 ; 3666 
5072 ; 3667 
5073 ; 3668 
5074 ; 3669 
5075 ;: 3670 
5076 ; 3671 
5077 ; 3672 
5078 ; 3673 
5 3674 
; 3675 
; 3676 
; 3677 
g 3678 
; 3679 
5085 ; 3680 
5086 ; 3681 
5087 ; 3682 


5098 042160 006300 
3700 


5102 042176 002422 
00 37 


042236 100002 
042240 005037 
042244 000207 


PPPS AAI ITU 
ee ed ed ed ed td 
FwWwn —OOCOnNOuew 

™ 

Ww 

™ 

=] 

i=] 

w 

™ 

WN 

| 


5079 
5080 
5081 
5082 
5083 
5084 

| 

L 


23-Oct-1980 15:01: 
COUNTING BYTES TRANSFERED 23-0ct-1980 14:5 


ROUTING UP_WC_COUNT(WORD_COUNT) : NOVALUE = 
BEGIN 


WC_COUNT = .WC_COUNT * (.WORD_COUNT * 2); 
IF .WC_COUNT GEQ 20000 
THEN 


BEGIN 

WC_THOUSANDS = .WC_THOUSANDS + 20; 
WC_COUNT = .WC_COUNT = 20000; 

a WC _ THOUSANDS GEQ 1000 


BEGIN 

~ WC_THOUSANDS = .WC_THOUSANDS - 1000; 
WC_MILLIONS = .WC_MILLIONS + 1; 

IF” .WC_MILLIONS LSS 0 

THEN WC_MILLIONS = 0; 


TOPS=20 Bliss-16 V2(206) 


PA: <ROSEN>MLX4.BLI.1 


END; 
RETURN; 
END; 
.SBTTL UP.WC.COUNT COUNTING BYTES TRANSFERED 
UP.WC. COUNT: 
000002 MOV 2(SP),RO ; WORD.COUNT,* 
ASL RO 
032346 ADD WC. COUNT,RO 
032346 MOV RO,WC.COUNI 
047040 CHP RO, * #47040 : WC.COUNT,* 
L 
000024 032350 ADD #24,WC. THOUSANDS : 
047040 032346 SUB #47040,WC. COUNT ; 
032350 001750 CRP WC. . THOUSANDS , #1750 ; 
L 
001750 032350 SUB #1750,WC. THOUSANDS 
032352 INC WC.MILLIONS 
BPL 1$ : 
032352 CLR WC MILLIONS : 
1$: RTS PC : 


; Routine Size: 29 words — ; 
; Maximum stack depth per invocation: 0 words 


(31) 


SEQ 0146 


E 12 
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‘UP. WC.COUNT COUNTING BYTES TRANSFERED SEQ 0147 


5123 
5124 


F 12 
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UP.WC.COUNT COUNTING BYTES TRANSFERED 


3708 COMMAND = WRC 
3709 VALUE = START. Tri, COMMAND, .LUN, .WRDCNT, .BUFFER,.SECTOR); 


3711 IF (NOT .RETRYING) 
3712 THEN UP_WR_COUNT(.WRDCNT); 


3713 

3714 IF .VALUE EQL 0 

erie THEN RETURN 0; 'NO ERRORS AT ALL 

3717 IF ((.ERROUT) AND (NOT .RETRYING)) 

3718 THEN PRINTB(FMT6, -WRDCNT ,WRD16,WRD15, . SECTOR) 
ah '"BEGAN YYYY WORD WRITE AT SECTGR 222732" 
3721 RETURN .VALUE; 

3722 

3723 END; 


-SBTTL WRITE ML11 TRANSFER COMMANDS 
042246 004137 005150 WRITE: JSR AVE2 


TOPS-20 Bliss-16 v2(206) 
PA:<ROSENDMLX4.BLI.1 (32) 


RA 


| §126 = MLX4 23-0ct-1980 15:01:43 
| i : ML11 TRANSFER COMMANDS 23-0¢t-1980 14:57:05 
; 3685 M%SBTTL 'ML11 TRANSFER COMMANDS’ 
| : 3685 ROUTINE WRITE(LUN,WRDCNT,BUFFER,SECTOR) = 
; 3686 BEGIN 
| : 3687 
; 3688 |! + 
: 3689 | * ROUTINE: WRITE (LUN,WRDNT ,BUFFER, SECTOR) 
: 3691 | PURPOSE: TO TRANSFER INFORMATION FROM MAIN MEMORY TO THE ML11 
; 3692 AND TO DECIDE ON THE ADVISABILITY OF A RETRY. 
: 3694 ARGUMENTS: SEE ‘START_IT' ROUTINE ABOVE FOR DETAILS 
: 3696 ' RESULTS: UPON TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS 
; 3697! AND THE CONTENTS OF 'VALUE* BECOMES IMPORTANT IN TERMS OF 
; 3698! WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHE 
; 3699 ! RETRY SHOULD OR SHOULD NOT BE PERMITTED. 
: 3701! THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 
; 3702 | FOR THE SYSERR ROUTINE ABOVE. 
; 3703 !- 
; 3704 
; 3705 LOCAL 
; 3706 VALUE, COMMAND; 
; 3707 


R : 
79 042252 012700 000061 MOV #61,R0 ; *, COMMAND 
80 042256 010046 MOV RO,-(SP) ; COMMAND, * 


SEQ 0148 
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‘WRITE ML11 TRANSFER COMMANDS SEQ 0149 
5182 sMLX4 23-0¢t-1980 15:01:43 TOPS 
uty ; ML11 TRANSFER COMMANDS 23-0ct-1980 14:57:05 PA:< 
5185 042260 016646 000020 MOV 20(SP) ,=(SP) 3 LUN,* 

5186 042264 016601 000020 MOV 20(SP),R1 : WROCNT,* 
— 5187 042270 010146 MOV R1,-(SP) 
/ §188 042272 016646 000020 MOV 20(SP) ,<(SP) ; BUFFER,* 
5189 042276 016646 000020 MOV 20(SP),-(SP) ; SECTOR,* 
5190 042302 004737 041324 JSR PC,START.IT 
5191 042306 010002 MOV RO,R2 3 *, VALUE 
5192 042310 032737 000001 032356 BIT #1,RETRYING ; 3711 
5193 042316 001004 BNE 1$ 
5194 042320 010146 MOV R1,-(SP) ; 3712 
5195 042322 004737 041770 JSR PC,UP.WR.COUNT 
5196 642326 005726 TST (SP) + ' 
5197 042330 005702 1$: TST R2 ; VALUE 3714 
5198 042332 001003 BNE 23 
5199 042334 062706 000012 ADD #12,SP : 3715 
5200 042340 000433 BR 4$ 
5201 042342 032737 000001 002260 2%: BIT #1,ERROUT j 3717 
5202 042350 001423 BEQ $ 
5203 042352 032737 000001 032356 BIT #1, RETRYING 
5204 042360 001017 BNE 3$ 
5205 042362 016646 000022 MOV 22(SP),-(SP) : SECTOR,* 3718 
5206 042366 012746 006670 MOV #WRD15,-(SP) 
5207 042372 012746 006700 MOV #WRD16,-(SP) 
5208 042376 010146 MOV R1,-(SP) 
5209 042400 012746 006020 MOV #FMT6,-(SP) 
5210 042404 012746 000005 MOV #5,-(SP) 
5211 042410 010600 MOV SP,RO , ee 
5212 042412 104414 TRAP 14 
5213 042414 062706 000014 ADD #14,SP 
5214 042420 062706 000012 3$: ADD #12,SP ; 3685 
5215 042424 010200 MOV R2,RO0 ; VALUE,* 3686 
5216 042426 000207 RTS PC 
5217 042430 005C00 . 4$: CLR RO : 3685 
asi8 042432 000207 RTS PC 
5220 ; Routine Size: 59 words 
age? : Maximum stack depth per invocation: 14 words 
5227 
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— ML11 TRANSFER COMMAN 
5229 :MLKG 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 v2(206) 
2530 3 ML11 TRANSFER COMMANDS 23-0ct-1980 14:57:05 PA: <ROSEND>MLX4.BLI.1 (33) 
$232 3724 ROUTINE READ(LUN,WRDCNT BUFFER,SECTOR: = 

: Sane 3725 BEGIN 

, $234 3726 
5235 3727! 44 

| 638 378 ROUTINE: READ (LUN,WRDCNT, BUFFER, SECTOR) 
5238 3730 PURPOSE : TO TRANSFER INFORMATION FROM THE ML11 TO MAIN MEMORY 


USING A ‘READ’ COMMAND. 
ARGUMENTS: SEE "START_IT* ROUTINE ABOVE FOR DETAILS 


RESULTS: UPON TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS 
AND THE CONTENTS OF ‘VALUE’ BECOMES IMPORTANT IN TERMS OF 


! 
i 
i 
' 
i 
' 
' 
3734 
' 
! WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A 
i 
i 
! 
le 


| . 
| °. 
a5e8 3 He RETRY SHOULD OR SHOULD NOT BE PERMITTED. 
5248 ;: 3740 THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 
5249 ; 3741 FOR THE SYSERR ROUTINE ABOVE. 
5250 ; 3742 
5251 ; 3743 
5252 ; 3744 LOCAL 
5253: 3745 VALUE, COMMAND; 
5254 ; 3746 
5255 ; 3747 COMMAND = RD_C 
2526 ; oe VALUE = START. iT. COMMAND, .LUN, .WRDCNT, .BUFFER, SECTOR); 
$258 ; 3750 IF (NOT .RETRYING) 
5259 ; 3751 THEN UP_RD_COUNT(.WRDCNT); 
5260 ; 3752 
5261 ; 3753 IF .VALUE EQL 0 
5262 ; 3754 THEN RETURN 0; 'MO ERRORS AT ALL 
5263 ; 3755 
5264 ; 3756 IF ((.ERROUT) AND (NOT .RETRYING)) 
5265 ; 3757 THEN PRINTB(FMT6, .WRDCNT,WRD17,WRD15,.SECTOR); 
5266 : 3758 '"BEGAN YYYY WORD READ AT SECTOR 222222' 
5267 ; 3759 
5268 ; 3760 RETURN .VALUE; 
5269 ; 3761 
$270 : 3762 END; 
5274 
5275 .SBTTL READ ML11 TRANSFER COMMANDS 
5279 042434 004137 005150 READ: JSR R1,$SAVE2 ; 
5280 042440 012700 000071 MOV #71, : *, COMMAND 
5281 042444 010046 MOV RO,-(SP) : COMMAND, ®* 
5282 042446 016646 000020 MOV 20(SP) ,-(SP) ; LUN,* 
5283 042452 016601 000020 MOV 20(SP),R1 ; WRDCNT,* 


SEQ 0150 


MLXG 
READ ML1 


POR 2 St Ss 4 41 OOOO 


WWANWWNNWN NANA 
DWNNM —"OCOWDNOUEWN OO 0OOn 


Mmror 


rrr 


RELPLLLPPELELPLELE PERSP LELELEPEL 


456 010146 


IN 


FSSESESSNSSRSRRERSFES 
oO 
— 
oO 
— 
= 
o 


2620 000207 
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1 TRANSFER COMMANDS 


SMLX4 


000020 
000020 
041324 


000001 032356 


042062 


000012 

000001 002260 2$: 
000001 032356 
000022 

006670 

006706 

006020 

000005 


000014 
000012 3$: 


4$: 


; Routine Size: 


1 12 


ML11 TRANSFER COMMANDS 
R1,-(SP) 

20(SP) ,=(SP) 

20(SP) ,=(SP) 
PC,START.IT 

RO,R2 

#1 ,RETRYING 

1$ 

R1,-(SP) 


PC,UP.RD.COUNT 
(SP)¢ 


4 

#1 ,ERROUT 
#1 ,RETRYING 
3$ 


22(SP) ,-(SP) 
#WRD15,-(SP) 


59 words 


; Maximum stack depth per invocation: 


14 words 


; BUFFER,* 
; SECTOR,* 


; *,VALUE 


; VALUE 


; SECTOR,* 


; ,* 


+ VALUE,* 


oo 


SEQ 0151 


3724 
3725 


3724 
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READ ML11 TRANSFER COMMANDS 


5330 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
233) : ML11 TRANSFER COMMANDS 23-0ct-1980 14:57:05 PA:<ROSENDMLX4.BLI.1 (34) 
| $5553 3763 ROUTINE CHECK(LUN,WRDCNT,BUFFER,SECTOR) = 
5334 ; 3764 BEGIN 
| 5335: 3765 
5336 ; 3766 ++ 
ogee ; gree ROUTINE : CHECK (LUN,WRDCNT BUFFER, SECTOR) 
5339 ; 3769 | PURPOSE: TO TRANSFER INFORMATION FROM THE ML11 TO MAIN MEMORY 
rt 98 ; gun USING A ‘WRITE CHECK’ COMMAND. 
| a 3 a7 ARGUMENTS: SEE ‘START_IT* ROUTINE ABOVE FOR DETAILS 
$344 ; 3774 ! RESULTS: UPON TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS 
5345 ; 3775! AND THE CONTENTS OF ‘VALUE’ BECOMES IMPORTANT IN TERMS OF 
5346 ; 3776 =! WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A 
age! ; ad RETRY SHOULD OR SHOULD NOT BE PERMITTED. 
5349 ; 3779! THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 
5350 ; 3780 =! FOR THE SYSERR ROUTINE ABOVE. 
5351 ;: 3781 !-- 
5352 ; 3782 
5353 ; 3783 LOCAL 
5354 ; 3784 VALUE, COMMAND; 
5355 ; 3785 
5356 ; 3786 COMMAND = wC_C 
2337 : 378? VALUE = START_ Mi. COMMAND, .LUN, .WRDCNT, .BUFFER, .SECTOR); 
5359 ; 3789 IF (NOT .RETRYING) 
5360 ; 3790 THEN UP_WC_COUNT(.WRDCNT); 
5361 ; 3791 
5562 ; 3792 IF .VALUE EQL 0 
5363 ; 3793 THEN RETURN 0; 'NO ERRORS AT ALL 
5364 ; 3794 
5365 ; 3795 IF ((.ERROUT) AND (NOT .RETRYING)) 
5366 ; 3796 THEN PRINTB(FMTO, .WRDCNT,PHR1,WRD15,.SECTOR) 
5367 ; 3797 '"BEGAN YYYY WORD WRITE CHECK AT SECTOR 222227' 
5368 ; 3798 
5369 ; 3799 RETURN .VALUE; 
5370 : 3800 
5371 ; 3801 END; 
5375 
5376 .SBTTL CHECK ML11 TRANSFER COMMANDS 
5380 042622 004137 005150 CHECK: JSR R1,$SAVE2 : 
5381 042626 012700 000051 MOV #51,R0 : *, COMMAND 
5382 042632 010046 MOV RO,-(SP) : COMMAND, * 
5383 042634 016646 000020 MOV 20(SP),-(SP) : LUN,* 
| 5384 042640 016601 000020 MOV 20(SP),R1 ; WRDCNT,* 
| 
| 
| 


SEQ 0152 
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CHECK ML11 TRANSFER COMMANDS SEQ 0153 
| 5386 MLX4 23-0ct-1980 15:01:43 TOPS 
| oeee ; ML11 TRANSFER COMMANDS 23-0ct-1980 14:57:05 PA:< 
 —- § 389 042644 010146 MOV R1,-(SP) 
5390 042646 016646 000020 MOV 20(SP) ,-(SP) ; BUFFER,* 
5391 042652 016646 000020 MOV 20(SP) ,-(SP) ; SECTOR,* 
5392 042656 004737 041324 JSR PC,START.IT 
5393 042662 010002 MOV RO,R 3 *, VALUE 
5394 042664 032737 000001 032356 BIT #1, RETRYING 3 3789 
5395 042672 1004 BNE 1$ 
5396 042674 010146 MCV R1,-(SP) ; 3790 
5397 042676 004737 042154 JSR PC,UP.WC.COUNT 
5398 042702 005726 TST (SP)+ 
042704 005702 1$: TST R2 : VALUE 3792 
5400 042706 001003 BNE 2$ 
5401 042710 062706 000012 ADD #12,SP ; 3793 
5402 042714 000433 BR 4$ 
5403 042716 032737 000001 002260 2$: BIT #1,ERROUT : 3795 
5404 042724 001423 BEQ 
5405 042726 032737 000001 032356 BIT #1,RETRYING 
5406 042734 001017 BNE 3$ 
5407 042736 016646 000022 MOV 22(SP) ,-(SP) ; SECTOR,* 3796 
5408 042742 012746 006670 MOV #WRD15,-(SP) 
5409 042746 012746 007336 MOV #PHR1,-(SP) 
5410 042752 010146 MOV R1,-(SP) 
5411 042754 012746 006020 MOV #FMT6,-(SP) 
5412 042760 012746 000005 MOV #5,-(SP) 
5413 042764 010600 MOV P,RO : SP,* 
5414 042766 104414 TRAP 1 
5415 042770 062706 000014 ADD #14,SP 
5416 042774 062706 000012 3$: ADD #12,SP ; 3763 
5417 043000 010200 MOV R2,R0 ; VALUE,* 3764 
5418 043002 000207 *. RTS PC 
5419 043004 005000 4$: CLR RO 3 3763 
ees 043006 000207 RTS PC 
5422 ; Routine Size: 59 words 
ryt] 3 Maximum stack depth per invocation: 14 words 
5429 
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— ML11 TRANSFER COMMAND 


| 5431 ;MLX4 23-0¢t-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
| ae38 3 ML11 TRANSFER COMMANDS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 
5434 ; 3802 ROUTINE CHOOSE = 

5435 ; 3803 BEGIN 

5436 ; 3804 

5437 ; 3805 !++ 

5438 ; 3806 ! ROUTINE: CHOOSE 

5439 ; 3807 =! 

5440 ; 3808 ' PURPOSE: TO DECIDE WHETHER TO DO A ‘WRITE CHECK’ OR A ‘READ’. 

5441 ; 3809 ! THE ‘READ’ WILL BE SELECTED APPROXIMATELY 25% OF THE 

5442 ; 3810 ! TIME. THIS IS ACCOMPLISHED BY EXAMINING THE MOST AND 

5443 ; 3811 ! THE LEAST SIGNIFICANT BITS OF A RANDOM NUMBER. IF 

ats 3 at BOTH ARE SET, THEN ‘READ’ IS CHOSEN. 

5446 ; 3814 ! RESULTS: THE VALUE RETURNED FOR THIS ROUTINE I$ THE > ci OF 

5447 ; 3815 ! THE CHOSEN COMMAND (EITHER ‘READ’ OR ‘CHECK’ 

5448 ; 3816 !-- 

5449 ; 3817 

5450 ; 3818 LOCAL 

5451 ; 3819 VALUE; 

5452 ; 3820 

5453 ; 3821 RN(); 

5454 ; 3822 

5455 ; 3823 IF ((.RANDOM) AND (.RANDOM LSS 0)) 

5456 ; 3824 THEN VALUE = READ 'CHOCSE THE READ COMMAND 

5457 ; 3825 ELSE VALUE = CHECK; 'CHOOSE THE WRITE CHECK COMMAND 

5458 ; 3826 

5459 ; 3827 RETURN .VALUE; 

cae 3 3828 END; 

5465 _ — CHOOSE ML11 TRANSFER COMMANDS 

5469 043010 004737 005256 CHOOSE: PC,RN : 

5470 043014 032737 000001 005352 ait #1, RANDOM 3 

5471 043022 001406 EQ 1$ 

$472 043024 005737 005352 TST RANDOM 

3473 043030 002003 BGE 1$ 

5474 043032 012700 042434 MOV #READ,RO 3 *, VALUE 

5475 043036 000207 RTS PC : 

5476 043040 012700 042622 1$: MOV #CHECK,RO ; *, VALUE 

ray eh 043044 000207 RTS PC 3 

5479 ; Routine Size: 15 words — ; 

5480 ; Maximum stack depth per invocation: 0 words 


(35). 


SEQ 0154 


M12 
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MLXG 
‘CHOOSE ML11 TRANSFER COMMAN SEQ 0155 


5486 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
roe 14 ; ML11 TRANSFER COMMANDS 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (36) 
5489 ; 3829 ROUTINE RETRY(TIMES, COMMAND,LUN,WROCNT,BUFFER,SECTOR) = 

5490 ; 3830 BEGIN !*1* 

5491 ; 3831 

5492 ; 3832 

5493 : 3833 0! ++ 

rhe $ te ROUTINE: RETRY(TIMES, COMMAND ,LUN,WROCNT BUFFER, SECTOR) 

5496 ; 3836 !' PURPOSE: (1) IF THE OPERATOR HAS ALLOWED ERROR PRINTOUTS, AND 
5497 ; 3837 =! IF THE RETRY IS NOT TO CATEGORIZE ERRORS, THEN SAY 
5498 ; 3838 =! THAT THE RETRY IS BEGINNING. 

5499 ;: 3839 =! 

5500 ; 3840 ! (2) REISSUE THE WRITE, WRITE CHECK OR READ COMMAND 
5501 ; 3841 ! UNTIL THE COMMAND SUCCEEDS OR UNTIL ALL PERMITTED : 
5502 ; 3842 |! RETRIES HAVE FAILED. 

5503 ; 3843 =! 

5504 ; 3844 ! (3) IF A ‘BEGIN RETRY’ MESSAGE WAS PRINTED, THEN A FINAL 
5505 ; 3845 ! MESSAGE ABOUT THE SUCCESS OR FAILURE OF THE RETRIES 
2306 ; zeee : SHOULD ALSO BE PRINTED. 

5508 ; 3848 =! (4) INCREMENT THE RETRY COUNTER FOR EVERY RETRY DONE 
5509 ; 3849 ! WHICH WAS NOT FOR ERROR CLASSIFICATION. 

5510 ; 3850 =! 

5511 ; 3851 ! 

5512; 3852 !' ARGUMENTS: (1) TIMES - THE NUMBER OF RETRIES PERMITTED BEFORE 
5513; 3853! IT IS CALLED A FAILURE. 

5514; 3854 =! 

5515 ; 3855 ! (2) OTHER ARGUMENTS ARE THE SAME AS FOR ‘START_IT' 
a2'¢ ; sec8 ROUTINE ABOVE. 

5518 ; 3858 ! RESULTS: THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 
5519 ;: 3859 =! FOR THE SYSERR ROUTINE ABOVE. 

5520 ; 3860 !-- 

5521 ; 3861 

5522 ; 3862 

5523; 3863 LABEL 

5524 ; 3864 LOOP; 

5525 ; 3865 

5526 ; 3866 LOCAL 

5527 : 3867 TEMP, VALUE, COUNT, TBOARD, TBANK; 

5528 ; 3868 

5529 ; 3869 '¢ 

5530 ; 3870 ' THIS IS THE CODE FOR PURPOSE 1: 

5531 ; 3871 Hd 

5532 ; 3872 

5533 ; 3873 RETRYING = ACTIVE; 

5534 ; 3874 IF ((. TIMES NEQ 1) AND (.ERROUT)) 

5535 ; 3875 THEN 

5536 ;: 3876 BEGIN !*# 2 

5537 ; 3877 If .COMMAND EQL WRITE 

5538 ; 3878 THEN PRINTB(SAY3,WRD2,WRD16,WRD18); 

5539 ;: 3879 'BEGIN WRITE RETRY 

5540 ; 3880 If .COMMAND EQL CHECK 


co 





e- - a 


MLKG 
| CHOOSE ML11 TRANSFER COMMAND 
2308 : MLKG 
5544 
5545 ; 3881 
5546 ;: 3882 
5547 ; 3883 
5548 ; 3884 
5549 ; 3885 
5550 : 3886 
5551 ; 3887 
5552 ; 3888 
5553 ; 3889 
5554 ; 3890 
5555 ; 3891 
5556 ; 3892 
5557 ; 3893 
5558 ; 3894 
5559 ; 3895 
5560 ; 3896 
5561 ;: 3897 
5562 ; 3898 
5563 ; 3899 
564 ; 3900 
5565 ; 3901 
5566 ; 3902 
5567 ;: 3903 
5568 ; 3904 
5569 ; 3905 
5570 ; 3906 
5571 ; 3907 
5572 ; 3908 
5573 ;: 3909 
5574 ; 3910 
5575 ; 3911 
5576 ;: 3912 
5577 ; 3913 
5578 ; 3914 
5579 ;: 3915 
5580 ; 3914 
5581 ; 3917 
5582 ; 3918 
5583 ; 3919 
5584 ; 3920 
5585 ; 3921 
5586 ; 3922 
5587 : 3923 
5588 ; 3924 
5589 ; 3925 
5590 ; 3926 
5591 ; 3927 
5592 : 3928 
5593 ; 3929 
5594 ;: 3930 
5595 : 3931 
5596 : 3932 
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4 
ML11 TRANSFER COMMANDS 23-Oct-1980 14:57:0 


23-Oct-1980 15:01: ; 
THEN er ak re PHR1,WRD18); 
'BEGIN WRITE CHECK RETRY 
- COMMAND E 


IF QL REA D 

THEN PRINTB( SAYS, my? ett. WRD18); 
‘BEGIN READ R 

END; 'e 2 


14 


! THIS IS THE CODE FOR PURPOSE 2: 


BEGIN !* 3 * 


INCR KOUNT, F hey a 1 TO .TIMES DO 
IF . COMMAND EOL WRITE 
THEN 


VALUE = WRITE(.LUN,.WRDCNT, .BUFFER,.SECTOR); 
—— EQL CHECK 


BEGIN 
WRITE(.1UN, .WROCNT, .BUFFER, SECTOR); 
VALUE = CHECK(.LUN,.WRDCNT, "BUFFER, -SECTOR) ; 


END; 
IF .COMMAND EQL READ 
THEN 


BEGIN 
WRITE(.LUN, .WRDCNT, (.BUFFER-BUFSIZ*2),.SECTOR); 
— = READ(.LUN,.WRDCNT, .BUFFER,.SECTOR); 


° 
'¢ 


‘. THIS 1S THE CODE FOR PURPOSE 3: 


IF .VALUE EQL 0 
THEN . THE RETRY WAS SUCCESSFUL 
5 


BEGIN ! 
en NEQ 1) AND (.ERROUT)) 


BEGIN 
apts rh ag F WRD'8,WRD19); 
PRINTB(CRLF); 

RETRY SUCCEEDED 


END; 
COUNT = .KOUNT; 
je LEAVE LOOP; 


Ds i* 3 we 
ENDS” : 
‘4 i u) \4 


| FALLS THROUGH HERE IF ALL RETRIES FAILED: 


TOPS-20 Bliss-16 V2(206) 


PA: <ROSEND>MLX4.BL1.1 


(36) 


SEQ 0156 


co" a ee ms 
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/CHOO SE ML11 TRANSFER COMMANDS 


5598 ;MLX4 23-0c t-1980 
444 3 ML11 TRANSFER COMMANDS 23-0ct-1980 

5601 ; 3933 t= 
| 5602 : 3934 

5603 : 3935 IF ((. TIMES NEQ 1) AND (.ERROUT)) 

5604 ; 3936 THEN 

5605 ; 3937 BEGIN 

5606 ; 3938 ahh a ty wRD18, WRD20); 

5607 ; 3939 PRINTB(CRLF 

5608 ; 3940 'RETRY FAILED 

5609 ; 3941 COUNT = .TIMES; 

5610 ; 3942 END; 

5611 ; 3943 END; '‘e 3 « 

5612 ; 3944 

5613 ; 3945 1¢ 

5614 ; 3946 ' THIS IS THE CODE FOR PURPOSE 4: 

5615 ;: 3947 te 

5616 ; 3948 

5617 ; 3949 IF .TIMES NEQ 1 

5618 ; 3950 THEN 

5619 ;: 3951 BEGIN 

5620 ; 3952 TBOARD = .BOARD; 

5621 ; 3953 TBANK = .BA AE 

5622 ; 3954 pe cess SECTO 

5623 ; 3955 TRIESC.LUN, eae. 0,16,0] = .TRIESC.LUN,.BOARD,0,16,0] + 

5624 ; 3956 BOARD = .TBOARD; 

5625 ; 3957 BANK = . TBANK; 

5626 ; 3958 END; 

5627 ; 3959 

5628 ;: 3960 RETRYING = INACTIVE; 

5629 ; 3961 RETURN .VALUE; 

5030 ;: 3962 

set g 3963 END; ‘#1 

5636 .SBITL RETRY ML11 TRANSFER COMMANDS 

5640 043046 004137 005222 RETRY: JSR R1,$SAVES 

5641 043052 012737 000001 032356 nov #1,RETRYING 

5642 043060 016601 000030 MOV 30(SP), R1 

5643 043064 005046 CLR -(SP) 

5644 043066 020127 000001 CMP R1,#1 

5645 043072 001472 BEQ 3$ 

5646 043074 005216 INC (SP) 

5647 043076 032737 000001 002260 BIT #1, ERROUT 

5648 043104 001465 BEQ $ 

5649 043106 016602 000030 MOV 30(SP),R2 

5650 043112 020227 042246 CMP R2, #WRITE 

5651 043116 001016 BNE 1$ 

5652 043120 012746 006714 MOV #WRD18,-(SP) 


15:01:43 TOPS=20 Bliss-16 vet 206) 
14:57:05 PA:<ROSEN>MLX4.BLI.1 (36) 
. COUNT; 

TIMES,* 

; COMMAND, * 


SEQ 0157 


3877 


3878 


e 
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RETRY ML11 TRANSFER COMMAN SEQ 0158 
| 5654 SMLXG 23-0ct-1980 15:01:43 TOPS 
| rat4 ; ML11 TRANSFER COMMANDS 23-0ct-1980 14:57:05 PA:< 
5657 043124 012746 006700 MOV #WRD16,-(SP) 
5658 043130 012746 006622 MOV #WRO2,-(SP) 
5659 043134 012746 006534 MOV #SAY3,-(SP) 
5660 043140 012746 000004 MOV #4 ,-(SP) 
5661 043144 010600 MOV SP,RO ; SP,* 
5662 043146 104414 TRAP 14 
5663 043150 062706 000012 ADD #12,SP 
5664 043154 020227 042622 1$: CMP R2,#CHECK : 3880 
5665 043160 001016 BNE 2$ 
5666 043162 012746 006714 MOV #WRD18,-(SP) ; 3881 
5667 043166 012746 007336 MOV #PHR1,-(SP) 
5668 043172 012746 006622 MOV #WRD2,-(SP) 
5669 043176 012746 006534 MOV #SAY3,-(SP) 
5670 043202 012746 000004 MOV #4 ,-(SP) 
5671 043206 010600 MOV SP,RO : SP,* 
5672 043210 104414 TRAP 14 
5673 043212 062706 000012 ADD #12,SP 
74 043216 020227 042434 2$: CMP R2,#READ : 3883 
5675 043222 001016 BNE 3$ 
5 043224 012746 006714 MOV #WRD18,-(SP) : 3884 
5677 043230 012746 006706 MOV #WRD17,-(SP) 
043234 012746 006622 MOV #WRD2,-(SP) 
5679 043240 012746 006534 MOV #SAY3,-(SP) 
5680 043244 012746 000004 MOV #4 ,-(SP) 
5681 043250 010600 MOV SP,RO ; SP,* 
5682 043252 104414 TRAP 14 
5683 043254 062706 000012 ADD #12,SP 
5684 043260 016602 000030 3$: MOV 30(SP),R2 : COMMAND,* 3896 
5685 043264 005004 CLR RS : KOUNT 3894 
5086 043266 000543 BR 9$ 
5687 043270 020227 042246 4$: CMP R2,#WRITE : 3896 
5688 043274 001015 BNE 5$ 
5689 043276 016646 000026 MOV 26(SP) ,-(SP) ; LUN,* 3898 
5690 043302 016646 000026 MOV 26(SP) ,-(SP) ; WRDCNT,* 
5691 043306 016646 000026 MOV 26(SP) ,-(SP) ; BUFFER,* 
5692 043312 016646 000026 MOV 26(SP) ,-(SP) : SECTOR,* 
5693 043316 004737 042246 JSR PC WRITE 
5694 043322 010003 MOV RO,R3 3 *, VALUE 
5695 043324 062706 000010 ADD #16,SP 
5696 043330 020227 042622 5$: CMP R2,#CHECK : 3899 
5697 043334 001027 BNE 6$ 
5698 043336 016646 000026 MOV 26(SP) ,-(SP) > LUN,* 3902 
5699 043342 016646 000026 MOV 26(SP) ,-(SP) ; WRDCNT,* 
5700 043346 016646 000026 MOV 26(SP),-(SP) : BUFFER,* 
5701 043352 016646 000026 MOV 26(SP) ,-(SP) ; SECTOR,* 
5702 043356 004737 042246 JSR PC WRITE 
5703 043362 016616 000036 MOV 36(SP), (SP) : LUN,* 3903 
5704 043366 016646 000034 MOV 34(SP),-(SP) ; WRDCNT,* 
5705 043372 016646 000034 MOV 34(SP),-(SP) : BUFFER,* 
5706 043376 016646 000034 MOV 34(SP),-(SP) ; SECTOR,* 
5707 043402 004737 042622 JSR PC, CHECK : 
5708 043406 010003 MOV RO,R3 > *, VALUE 


-— 
| 
| 
| 


MLX4 
(RETR 


5 


NNN 
w 
> 


PAPAS 
POMO MUNIN NID 2 SS 


NAUSWN —OOONOUS WIN" O 
RRRRRLRRKLREKEKKE 
FESESESESESSES 


GN 
~ 


5 
5728 


WAN 


uw 
~ 
Ww 
uw 
4 
Ww 
w 


353, 


LSSSBIABIL 
paper repepeperet 
SSEEEESS SSS 


o 
RRRKRRKEKKSS 


PAAAPAAAMAAMAUIUT 
NN NS 


3 


os 
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Y ML11 TRANSFER COMMANDS 


000016 
042434 


000026 


042434 
000016 


000001 
000001 


000003 


006510 
000001 


000012 


000001 
000001 


006510 
000001 


dD 13 


ML11 TRANSFER COMMANDS 


#16,SP 
R2,#READ 

7$ 

26(SP) ,-(SP) 


PC WRITE 
6(SP), (SP) 
4(SP),-(SP) 
4(SP) ,-(SP) 
4(SP) ,-(SP) 
PC,READ 


#1, (SP) 
8$ 

#1, ERROUT 
8$ 


#WRD19,-(SP) 
#WRD18,-(SP) 
WSAY2,-(SP) 
#3,-(SP) 
14 
#CRLF , (SP) 
#1,-(SP) 

RO 


#1, ERROUT 
10$ 


#WRD20,-(SP) 
#WRD18,-(SP) 
#SAY2,-(SP) 
#3,-(SP) 

RO 
14 
#CRLF , (SP) 
#1,-(SP) 
SP,RO 
14 


; LUN,* 

; WRDCNT,* 
: BUFFER,* 
; SECTOR,* 
; LUN,* 

; WROCNT,* 
: BUFFER,* 
; SECTOR,* 
; *, VALUE 


+ VALUE 


; SP,* 


; 8 


* KOUNT, COUNT 


; KOUNT 
; KOUNT,* 


; #2 


. SP,* 


ou 


SEQ 0159 


TOPS 
PA:< 


3901 
3905 


3908 


3909 


3939 
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RETRY ML11 TRANSFER COMMANDS SEQ 0160 
5766 MLX4 23-0ct-1980 15:01:43 TOPS 
arer ; ML11 TRANSFER COMMANDS 23-0ct-1980 14:57:05 PA:< 

5769 043662 (010105 MOV R1,R5 ; *, COUNT 3941 

| 5770 043664 062706 000012 ADD #12,5P : 3937 
5771 043670 032716 000001 108: BIT #1, (SP) ; 3949 
5772 043674 0014 BEQ 11% 

5773 043676 013701 932360 MOV BOARD,R1 3; *,TBOARD 3952 
5774 043702 013702 032362 MOV BANK ,R2 ; *, TBANK 3953 
5775 043706 016646 000020 MOV 20(SP) ,-(SP) : SECTOR,* 3954 
5776 043712 004737 -035106 JSR PC ,DECODE 

5777 043716 016600 000030 MOV 30(SP), RO 3; LUN,* 3955 
5778 043722 0063 ASL RO 

5779 043724 0063 ASL RO 

5780 043726 006300 ASL RO 

5781 043730 006300 ASL RO 

5782 043732 063700 032360 ADD BOARD ,RO ‘ 

5783 043736 006300 ASL RO 

5784 043740 060560 031732 ADD RS, TRIES(RO) ; COUNT,* 

5785 043744 010137 032360 MOV R1,BOARD ; TBOARD,* 3956 
5786 043750 010237 032362 MOV R2,BANK ; TBANK,* 3957 
5787 043754 005726 TST (SP) + : 3951 
5788 043756 005037 032356 11$: CLR RETRYING : 3960 
5789 043762 010300 MOV R3,RO ; VALUE,* 3830 
5790 043764 005726 TST (SP)+ ; 3829 
ary) 043766 000207 RTS PC 

5793 ; Routine Size: 233 words. 

Le : Maximum stack depth per invocation: 14 words 


F 13 
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RETRY ML11 TRANSFER COMMANDS 


5802 ;MLX4 
5803 ; 
5804 
5805 ; 3964 
5806 ;: 3965 
5807 ;: 3966 
5808 ; 3967 
5809 ; 3968 
5810 ; 3969 
5811: 3970 
5812 ; 3971 
5813 ; 3972 
5814 ; 3973 
5815 ; 3974 
5816 ; 3975 
5817 ;: 3976 
5818 ; 3977 
5819 ; 3978 
5820 ; 3979 
3 3980 
; 3981 
5823 ; 3982 
5824 ; 3983 
5825 ; 3984 
5826 ; 3985 
5827 ; 3986 
5828 ; 3987 
5829 ; 3988 
5830 ;: 3989 
5831 ; 3990 
5835 
583 


6 
5840 043770 
5841 043770 016600 


5849 044026 010037 
5850 044032 000207 
5851 
5852 
5853 


; Routine Size: 18 words — 2 
: Maximum stack depth per invocation: 0 words 


SEQ 0161 
23-0ct-1980 15:01:43 TOPS=+20 Bliss-16 v2(206) 
TO SET UP BUFFER POINTERS BEFORE A TRANSFER 23-Oct-1980 14:57:05  PA:<ROSENDMLX4.BLI.1 (37) 
MSBITL 'TO SET UP BUFFER POINTERS BEFORE A TRANSFER’ 
ROUTINE SET_PTRS(WRDCNT): NOVALUE = 
BEGIN 
'e¢ 
| ROUTINE : SET_PTRS (WRDCNT) 
i PURPOSE: TO MAKE SURE THAT THE BUFFER POINTERS ARE SUITABLY PLACED 
BEFORE A TRANSFER, SO THAT THEY WILL SUPPORT THE CHOSEN WORD 
: COUNT WITHIN THE BUFFER SPACE. 
ARGUMENT : WRDCNT = THE NUMBER OF WORDS IN A TRANSFER. 
i RESULTS: ‘WPTR' AND 'RPTR' ARE SET BACK TO THE START OF THE BUFFERS 
QNLY IF THE WORD COUNT WON'T FIT. OTHERWISE, THEY ARE LEFT 
UNCHANGED. 
: NOTE: THE WRITE BUFFER IS LOCATED BEFORE THE READ BUFFER. 
IF (.WPTR + .WRDCNT * 2) GEQA END_WBUFF 
THEN WPTR = WBUFF; 
RPTR = .WPTR + (BUFSIZ * 2); 
RETURN; 
END; 
oh errs et SET.PTRS TU SET UP BUFFER POINTERS BEFORE A TRANSFER 

000002 "MOV 2(SP),RO : WRDCNT,*: 3985 

ASL RO 
030706 ADD WPTR,RO 
020706 CAP RO. #END .WBUF 
010706 030706 MOV #WBUFF ,WPTR : 3986 
030706 1$: MOV PTR,R : 3987 
010000 ADD #10000,R0 
030710 MOV RO,RPT 

RTS PC ; 3966 


G 13 
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SET.PTRS TO SET UP BUFFER POINTERS BEFORE A TRANSFER SEQ 0162 


5862 
5863 


MACRO M1113 24-OCT-80 09:59 PAGE 208 
SET. “pIRS TO SET UP BUFFER POINTERS BEFORE A TRANSFER 


sMLXG 


000207 


CHOOSING A WORD COUNT 
ZSBTTL 


OCAL 
TEMP, WRDCNT; 


TEMP = .LAST = .SECTOR + 1; 
IF opts 4 ee Aw or 
THEN WRDCNT = .TEMP * 256 
ELSE WRDCNT = BUFSIZ; 


RETURN .WRDCNT; 


END; 
. SBTTL 
GET. WRDCNT: 
000002 MOV 
000004 SUB 
INC 
000010 CMP 
BGE 
SWAB 
CLRB 
RTS 
004000 1$: MOV 
RTS 


; Routine Size: 
; Maximum stack 


‘CHOOSING A WORD COUNT' 
ROUTINE GET_WRDCNT(SECTOR,LAST) 
BEGIN 


23-0ct-1980 15: 
23-0c¢t-1980 


'NUMBER OF SECTORS LEFT TO TEST 


14: 


‘LESS THAN A FULL BUFFER LEFT? 
'YES == USE AS LARGE A COUNT AS FITS 


'NO 


GET.WRDCNT CHOOSING A WORD COUNT 


2(SP),RO 
hhc 


Pp 
#4000 ,R0 
PC 


14 words 


depth per invocation: 


0 words 


1 
7: 


-- USE THE ENTIRE BUFFER SIZE 


4 
0 


LAST,* 
SECTOR,* 


TEMP,* 


* ,WRDCNT 


: ; TOPS=20 Bliss-16 v2(20c) 


PA:<ROSEN>MLX4.BLI.1 (39) 


SEQ 0163 


1 13 
MLX4 MACRO M1113 yay A € 59 PAGE 209 
Get. WROCNT CHOOSING A WORD COUN 


5914 ;MLX4 23-0ct-1980 15:01:43 
a2 3 COMMAND INTEGRITY ROUTINE 23-0ct-1980 14:57:05 
5917 : 4008 XSBTTL ‘COMMAND INTEGRITY ROUTINE’ 
5918 ; 4009 
| $§919 ; 4010 ROUTINE IN EGRITY: NOVALUE = 
5920 ; 4011 BEGIN * START OF ROUTINE 
| §921 ;: 4012 
$922 ; 4013 '+4+ 
5923 ; 4014 |! ROUTINE: INTEGRITY 
5924 ; 4015 ! 
| §925; 4016 !' PURPOSE: TO MAKE SURE THAT THE BASIC ML11 TRANSFER COMMANDS 
5926 ; 4017! WHICH WILL BE USED BY THE EXERCISER (WRITE,READ, 
5927 ; 4018 ! WRITE CHECK) WORK PROPERLY. 
5928 ; 4019! 
5929 : 4020 |! THE CODE FOR ‘INTEGRITY’ IN BRIEF: 
5930 ; 4021 ! 
5931; 4022 |! BEGIN 1 (START OF ROUTINE) 
5932 ; 4023 ! SAY ROUTINE IS RUNNING 
5933 : 4024 ! INCR COMPLEMENT FLAG FROM 0 TO 1 
5934 ; 4025 |! : BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 
5935 ; 4026 ! : GENERATE THE PATTERN 
5936 ; 4027 ! =: INCR LOGICAL UNIT NUMBER FROM 0 TO LAST 
5937 ; 4028 ' : : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 
5938 ; 4029 ! :: TESTLOOP: 
5939 ; 4030 ! : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
5940 ; 4031! : : IF UNIT IS ACTIVE 
5941 ; 4032 ! : : THEN 
5942 : 4033 | : : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
5943 : 4034 ' : : : : SECTOR = LOWEST 
5944 ;: 4035! : : GET_WRDCNT 
5945 : 4036 ' =: : : : WRITE 
5946 ; 4037 |! : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
5947 : 4038 ' :: : : READ 
5948 : 4039 ' : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
5949 : 4040 ! : : : WRITE CHECK 
5950 ;: 4041! : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
5951 ;: 4042 ! :: END 5 (END OF TEST FOR AN ACTIVE UNIT 
5952 : 4043 |! : : > END & (END OF LOOP THAT COMPLETELY VESTS 1 UNIT) 
5953 ; 4044 |! : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 
5954 ; 4045 |! : END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 
5955 : 4046 ! RETURN 
5956 ;: 4047 ! END 1 (END OF ROUTINE) 
5957 : 4048 !-- 
5958 : 4049 
5959 : 4059 LABEL 
5960 ;: 4051 LOOP; 
5961 ; 4052 
5962 : 4053 LOCAL 
963 ; 4054 VALUE, WRDCNT, OLDSEC, OLDCHN, SECTOR, DBL_VALUE; 
5964 ; 4055 
5965 ;: 4056 PRINTB(SAY2, WRD34,RTNO); 
5966 ; 4057 '*RUNNING COMMAND INTEGRITY ROUTINE’ 
5967 ;: 4058 


4059 INCR COMP_FLAG FROM 0 TO 1 DO 


TOPS=-20 Bliss-16 V2(206) 


PA:<ROSEN>MLX4.BLI.1 


(39) 


SEQ 0164 


ee 
SS sss 


MLX4 
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23-0c t-1980 Fe : 


3 TOPS=20 Bliss-16 V2(206) 
23-Oct-1980 14: 5 


PA:<ROSEND>MLX4.BL1.1 (39) 


START OF COMPLEMENT FLAG SELECTION LOOP 


) DO 
START OF LOGICAL UNIT SELECTION LOOP 
START OF LOOP THAT COMPLETELY TESTS 1 UNIT 


START OF TEST FOR AN ACTIVE UNIT 


= LOWEST; 
WRDCNT = GET_WRDCNT(.SECTOR,HIGHEST); 
= WRITE(.LUN, .WRDCNT ,WBUFF ,LOWEST); 
SEE HOW SUCCESSFUL THE WRITE WAS: 


'SEE "SYSERR' FOR DEFINITION 
‘OF ERROR # CONTAINED IN ‘VALUE’ 


RETRY ALLOWED 


IF RETRY(SIX,WRITE,.LUN,..WROCNT ,WBUFF LOWEST) NEQ 0 
'THE RETRY FAILED -- SYSTEM FATAL ERROR 


ODE _4 
Teeke’ INTEGRITY ROUTINE ERROR 01 **** 
!JUMP JUST BEYOND END OF BLOCK * 4 * 


= CODE. §; CONTROLLER ERROR -- NO RETRY ALLOWED 
leete INTEGRITY ROUTINE ERROR 02 **#* 
' JUMP JUST BEYOND END OF BLOCK * 4 * 
FATAL DRIVE ERROR -- NO RETRY ALLOWED 
teeee INTEGRITY ROUTINE ERROR 03 **** 
CODE _6; 
' JUMP JUST BEYOND END OF BLOCK * 4 * 


READ(.LUN, .WROCNT ,RBUFF LOWEST); 
SEE HOW SUCCESSFUL THE READ WAS: 


MACRO M1113 24-OCT-80 09:59 PAGE 210 
GET.WRDCNT CHOOSING A WORD COUNT 

5970 ;MLX4 
ag} ; COMMAND INTEGRITY ROUTINE 
5973 ;: 4060 BEGIN '* 2 
5974 ; 4061 GEN3(.COMP FLAG); 
5975 ; 4062 INCR LUN FROM 0 TO (.LSUNIT - 
5976 : 4063 BEGIN !* 3 
5977 : 4064 LOOP 
5978 ; 4065 BEGIN !*4* 
5979 ; 4066 IF .DRIVE_STATUSC.LUNJ EQL ACTIVE 
5980 ; 4067 THEN 
5981 ; 4068 BEGIN !* 5 * 
5982 ; 4069 L$LUN = .LUN; 
5983 ; 4070 SECTOR 
5984 ; 4071 
5985 : 4072 
5986 : 4073 VALUE 
5987 ; 4074 '4 
5988 ; 4075 ' 
5989 : 4076 \- 
5990 ; 4077 SELECTONE .VALUE OF 
5991 ; 4078 SET 
5992 ; 4079 : 
5993 ; 4080 BEGIN !* 5A * 
5994 ; 4081 
5995 : 4082 THEN 
5996 ;: 4083 BEGIN 
5997 : 4084 WHY DROPTC.LUN] = 
5998 : 4085 ERRDF(1,MSG1,0); 
5999 : 4086 DODU(.LUN) ; 
6000 ; 4087 LEAVE LOOP: 
6001 ; 4088 END: 
602 ; 4089 END; !* SA * 
6003 ; 4090 2) : 
6004 ; 4091 BEGIN !* 5B * 
6005 ;: 4092 WHY DROPTC.LUN 
6006 ; 4093 ERRBF (2,MSG1,0); 
6007 ; 4094 DODU(.LUN) ; 
6008 ; 4095 LEAVE LOOP; 
6009 : 4096 END; '* 5B * 
6010 ; 4097 (3) : 
6011 ; 4098 BEGIN !* 5C * 
6012 ; 4099 ERRDF (3,MSG1,0); 
6013 ; 4100 WHY DROPTC.LUN) = 
6014 ;: 4101 pop0(.LUN); 
6015 ; 4102 LEAVE LOOP; 
6016 : 4103 END; ‘'* 5¢ * 
6017 ; 4104 
6018 : 4105 TES; 
6019 ; 4106 
6020 ; 4107 VALUE = 
6021 ; 4108 ' 
6022 ; 4109 i* 
6023 ; 4110 le 
6024 ; 4111 SELECTONE .VALUE OF 


'SEE ‘SYSERR' FOR DEFINITION 


SEQ 0165 
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GET.WRDCNT CHOOSING A WORD COU SEQ 0166 
6026 ;MLX4 23-0ct-1980 15:01:43 TOPS-20 Bliss-16 V2(206) 
ose ; COMMAND INTEGRITY ROUTINE 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BL1.1 (39) 
6029 ; 4112 SET 'OF ERROR # CONTAINED IN *VALUE' 
6030 ; 4113 0) 

6031 ; 4114 i (DBL_VALUE = DOUBLE_CHECK(WBUFF ,RBUFF,.WRDCNT)) NEQ 0 
6032 ; 4115 THEN 

6033 ; 4116 BEG 

6034 ; 4117 SAYWHO(. 

6035 ; 4118 PRINTBCSAY hs65); 

6036 ; 4119 OGIC FAILED TO DETECT DATA ERROR’ 

6037 ; 4120 PRINTBCFRTIZA, .. DBL_VALUE, .DBL_VALUE); 

6038 ; 4121 ; Boge DATA: XXXKXX AT “LOCATION vYVYYY" 

6039 ; 4122 LUE = .DBL_VALUE + BUFSIZ * 

6040 ; 4123 PRIRTBCFRT 28. sel V VALUE, .OBL_V LUE): 

6041 ; 4124 '*BAD DATA: perere & TLOCATION” 000000" 

6042 ; 4125 WHY *DROPTED LUN) © ODE 4: 

6043 ; 4126 ERRDF(4,MSG1,0); Tole INTEGRITY ROUTINE ERROR 04 «eee 
6044 ; 4127 DODU(.LUN) ; 

6045 ; 4128 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

6046 ; 4129 END; 

6047 ; 4130 (1): 

6048 : 4131 BEGIN !'* 5D * RETRY ALLOWED 

6049 ;: 4132 IF RETRY(SIX,READ,.LUN, .WRDCNT,RBUFF,LOWEST) NEQ 0 

6050 : 4133 THEN '!THE RETRY FAILED -- SYSTEM FATAL ERROR 

6051 ; 4134 BEGIN 

6052 ; 4135 WHY DROPTC.LUN] = CODE_4; 

6053 ; 4136 ERRDF(5,MSG1,0);  ‘e*%* INTEGRITY ROUTINE ERROR 05 *+#« 
6054 ; 4137 DODU(.LUN); 

6055 ; 4138 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
6056 : 4139 END; 

6057 ; 4140 END; 's 5D * 

6u58 ; 4141 (2) : 

6059 ; 4142 BEGIN ‘'* 5E * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
6060 ; 4143 WHY DROPTC. LUN] = 

6061 ; 4144 ERRDF (6,MSG1,0); “oy INTEGRITY ROUTINE ERROR 06 **** 
6062 ; 4145 DODUC.LUN) ; 

6063 ; 4146 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
6964 ; 4147 END; ‘* 5E * 

6065 ; 4148 (3): 

6066 ; 4149 BEGIN !* 5F * FATAL DRIVE ERROR -- NO RETRY ALLOWED 

6067 ;: 4150 ERRDF(7,MSG1,0);  ‘##e* INTEGRITY ROUTINE ERROR 07 **e* 
6068 ; 4151 WHY DROPTC.LUN] = CODE_6; 

6069 ; 4152 pop0(.LUN); 

6070 ; 4153 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
6071 : 4154 D; '« 5F 

6072 : 4155 tar 

6073 : 4156 BEGIN '« 5G * UNRECOVERABLE DATA ERROR 

6074 ; 4157 ISOLATE(); 

6075 : 4158 Hat MSG2,0); ay Atma ROUTINE ERROR 08 *#e# 
6076 : 4159 WHY DROPTC.LUN] = 

6077 ; 4160 pop0(.LUN); 

6078 ; 4161 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
6079 : 4162 END; ‘* 5G * 

6080 ; 4163 (5] : 


‘MLX4 == MACRO M1113 24-OCT-80 09:59 PAGE 212 


GET. WRDCNT CHOOSING A WORD COUN SEQ 0167 
6082; MLX4 23-Oct-1980 15:01:43 10-20 Bliss=16 v2(206) 

riot 3 COMMAND INTEGRITY ROUTINE 235-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (39) 

6085 ; 4164 BEGIN !'* 5H * RECOVERABLE DATA ERROR 

6086 ; 4165 ISOLATE (); 

6087 ; 4166 IF .ERROUT 

6088 ; 4167 THEN PRINTB(FMT10B,.CHAN); 

6089 ; 4168 hi BIT QQ’ 

6090 ; 4169 OLDSEC = »MLEL; 

6091 ; 4170 OLDCHN = .CHAN; 

6092 ; 4171 IF RETRY(ONE, READ, .LUN, .WROCNT,RBUFF,LOWEST) EQL 5 

6093 ; 4172 THEN 

6094 ; 4173 If ((.MLEL EQL .OLDSEC) AND (.CHAN EQL .OLDCHN)) 

6095 ; 4174 THEN 

6096 ; 4175 BEGIN 

6097 ;: 4176 IF .ERROUT 

6098 ; 4177 THEN 

6099 ; 4178 ERRHRD(9,MSG4,0); !**** INTEGRITY ROUTINE ERROR 09 eee 

6100 ; 4179 UP_HARD_COUNT(.LUN,.BOARD); 

6101 ; 4180 ENB 

6102 ; 4181 ELSE 

6103 ; 4182 BEGIN 

6104 ; 4183 IF .ERROUT 

6105 ; 4184 THEN 

6106 ; 4185 ERRSOFT(10,MSG3,0); !**** INTEGRITY ROUTINE ERROR 10 *eee 

6107 ; 4186 UP_SOFT_COUNT(.LUN, BOARD); 

6108 ; 4187 ENB 

6109 ; 4188 ELSE 

6110 ; 4189 BEGIN 

6111 ; 4190 IF .ERROUT 

6112 ; 4191 THEN 

6113 ; 4192 ERRSOFT(11,MSG3,0); !**** INTEGRITY ROUTINE ERROR 11 *ee* 

6114 ; 4193 UP_SOFT_COUNT(.LUN, .BOARD) ; 

6115 ; 4194 END; 

6116 ; 4195 END; ‘!* SH ® 

6117 ; 4196 

6118 ; 4197 TES; 

6119 ; 4198 

2120 : tie VALUE = CHECK(.LUN, .WROCNT,WBUFF LOWEST); 

o1st ; read . SEE HOW SUCCESSFUL THE WRITE CHECK WAS: 

6124 ; 4203 SELECTONE .VALUE OF 'SEE "SYSERR' FOR DEFINITION 

6125 ; 4204 SET 'OF ERROR # CONTAINED IN 'VALUE' 

6126 ; 4205 (1) : 

6127 ;: 4206 BEGIN '* 51 * RETRY ALLOWED 

6128 ; 4207 IF RETRY(SIX,CHECK,.LUN, .WRDCNT ,WBUFF LOWEST) NEQ 0 

6129 ; 4208 THEN 'THE RETRY FAILED -=- SYSTEM FATAL ERROR 

6130 ; 4209 BEGIN 

6131 ; 4210 WHY_DROPTLC. LUM) = CODE 

6132 ; 4211 ERRDF (12, MSG1,9); aes INTEGRITY ROUTINE ERROR 12 **e* 

6133 ; 4212 DODU(.LUN) ; 

6134 ; 4213 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

6135 ; 4214 END; 

6136 ; 4215 END; ‘!* 5] * 


| 


ct 
| 
| 


-— 
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74 
COMMAND INTEGRITY ROUTINE 3-0ct-1980 14:57:0 


3-0ct-1980 15:01 ; TOPS=20 Bliss-16 V2(206) 


PA: <ROSEN>MLX4.BLI.1 (39) 


2]: 
BEGIN ‘'* SJ * yin CONTROLLER ERROR -- NO RETRY ALLOWED 


(5) 


WHY DROPTC. ives 


ERROF (13_M 1,0); rete INTEGRITY ROUTINE ERROR 13 eee* 
popu(. woe 

LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
END; ‘# 5J *® 

BEGIN ‘'* 5K * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
ERRDF(14,MSG1,0); !**e* INTEGRITY ROUTINE ERROR 14 *ee« 

WHY DROPI(. -LUN] = CODE_6; 

pop0( . LUN) 

LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 4 * 
END; !* 5k * 

BEGIN sh 5L * UNRECOVERABLE DATA ERROR 

ERRDF(15,MSG2,0); ‘eee INTEGRITY ROUTINE ERROR 15 see 

WHY DROPTC.LUN] = CODE_7; 

pop0(.LUN); 

LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 « 


END; !* 5L * 


BEGIN !* 5M * RECOVERABLE DATA ERROR 
ISOLATE ( 


ERROU 
THEN PRINTOCANT ION, , CHAD; 
OLDSEC = .MLEL; 
OLDCHN = .CHAN; 
1F RETRY (ONE, NCHECK, .LUN, .WRDOCNT ,WBUFF LOWEST) EQL 5 
ie it. .MLEL EQL .OLDSEC) AND (.CHAN EQL_.OLDCHN)) 
BEGIN : 
IF .ERROUT b 
THEN 
ERRHRD(16,MSG4,0); !**** INTEGRITY ROUTINE ERROR 16 **** 
UP_HARD_COUNT(.LUN, .BOARD); 
END ; 
ELSE ‘ 
BEGIN 
IF .ERROUT 


THEN 
ERRSOFT(17,MSG3,0); !**** INTE a out ye ERROR 17 f@ee 
UP_SOFT _COUNT(. (UN, one . =i 

» es 


BEGIN 4 
IF .ERROUT J a if * 


THEN 
ERRSOFT(18,MSG3,0); !eeee INMEGRIT “rout ine ERROR 18 see 
: vt 





SEQ 0168 


‘ —— ————— - - a -_— 
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6194 ;MLX4 
619 ; COMMAND INTEGRITY ROUTINE 
6197 ; 4268 UP_SOFT_COUNT(.LUN, .BOARD) ; 
6198 : 4269 ; 
6199 : 4270 END; !* SM* 
6200 : 4271 
6201 : 4272 TES; 
6202 : 4273 
6203 : 4274 END; !* 5 * END OF TEST FOR AN AC 
6206 ; 4275 END; '* 4 * END OF LOOP THAT COMPLET 
6205 : 4276 END; |'* 3 * END OF LOGICAL UNIT SELECTI 
6206 ; 4277 END; '* 2 * END OF COMPLEMENT FLAG SELECTI 
6207 : 4278 RETURN: 
6208 ; 4279 END; |'* 1 * END OF ROUTINE 
6212 
6213 
6217 044070 INTEGRITY: 
6218 044070 004137 005222 JSR R1,$SAVES 
6219 044074 162706 000012 SUB P 
012746 007216 MOV #RTNO, =(SP) 
012746 006766 MOV #WRD34,-(SP) 

6222 044110 012746 006522 MOV #SAY2,-(SP) 
6223 044114 012746 000003 MOV #3,-(SP) 
6224 044120 010600 MOV SP,RO 
6225 044122 104414 TRAP 
6226 044124 005001 CLR RI 
6227 044126 010146 1$: MOV R1,-(SP) 

B 044130 004737 036556 JSR PC.GEN3 
6229 044134 013766 002012 000020 MOV LS$UNIT,20(SP) 
6230 044142 005004 CLR R4 
6231 044144 000137 046260 JMP 38% 
6232 044150 010400 2$: MOV R4,RO 
6233 044152 006200 ASR RO 

154 006200 ASR RO 

6235 044156 006200 ASR RO 
6236 044160 062700 032460 ADD #ORIVE.STATUS,RO 
6237 044164 010046 MOV RO,-(SP) 
6238 044166 010446 MOV R4.-(SP) 
6239 044170 042716 177770 BIC #177770, (SP) 
6240 044174 012746 000001 MOV #1,-(SP) 
6241 044200 005046 CLR -(§P) 
6242 044202 004737 004244 JSR PC ,BL$GT2 
6243 044206 062706 000010 ADD #16,SP 
6244 044212 005300 DEC RO 
6245 044214 001117 BNE 6$ 
6246 044216 010437 002074 MOV R4,LSLUN 
6247 044222 010400 MOV R4,RO 


6248 044224 006300 ASL RO 


23-0ct- 


1980 1 : 
23-0ct-1980 14: 3) : 


TIVE DRIVE 

ELY TESTS 1 UNIT 
ON LOOP 

ON LOOP 


ee 


or. 


Win 


-SBTTL INTEGRITY COMMAND INTEGRITY ROUTINE 


5P,* 


COMP .FLAG 
COMP .FLAG,* 


LUN 
LUN,* 


LUN,* 


LUN,* 
LUN,* 


TOPS-20 Bliss-16 V2(206) 
PA: <ROSEN>MLX4.B8L1.1 


1 (39) 


SEQ 0169 


4010 
4056 


4069 
4070 


.——_-- -———--—-- --- 
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6268 044304 
6269 044310 
6270 044314 


6289 044402 
4404 


30 436 
6303 044444 


=—on 
sy 
o 
mr 


$ 


ecoge 
33 
3 


é 


rwlolol~lolol—) 
— — 4 ss SY 
PVSES 
re 
AAKRWNAD 


~ 
WwNrNoOw 
win 


: 


032476 


044034 


010706 
042246 
000001 
000006 
042246 
010706 
043046 
000014 


000004 


000002 
000005 


000003 


000006 032464 


B 14 


COMMAND INTEGRITY ROUTINE 


#LOW.SECT,R2 


22(SP) ,-(SP) 


gf RA 


PC,GET.WROCN 
RO,R 
#WBUFF ,- (SP) 
PC WRITE 


(R2) ,-(SP) 
PC,RETRY 
> pa 


7 
* hapeag tae «chiar 


4 
 aemioemmmaiiheage 


2 
MSG1 
R4,RO 
51 

5$ 
R583 
7$ 

55 

3 

ase 

#6 ,WHY .DROPT(R4) 
4,R0 


LUN,* 
WROCNT,* 


*,* (LUN) 


; LUN,* 


; VALUE,* 
; *,*(LUN) 


; LUN,* 


; VALUE,* 


; #,*(LUN) 
; LUN,* 


23-0ct-19 
23-0ct-19 


SEQ 0170 
143 TOPS 
:05 PA:< 

4071 
4073 


4077 
4081 


~ @2 | 
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6306 
6307 
6308 
6309 044450 


6333 044562 
34 566 
6335 044572 
36 576 


635 04 
6360 044706 


gseceee=e 
NES & 


——O 000° 
pear er per Pers 


SPas 


S288 


ooooo 
tt ot od 


000012 
020706 
042434 
010706 


020706 


041226 
000006 
000032 


033436 


000003 
010000 
000046 
000046 
006400 
000003 


000010 


000042 
000001 


000006 
042434 


020706 


COMMAND INTEGRITY ROUTINE 
#12,SP 
8$ 


#WBUFF ,-(SP) 
#RBUFF ,-(SP) 
R3,-(SP) 

* Sa- apenttctmeen 
RO, 32(SP) 

10% 

R4,-(SP) 
PC,SAYWHO 
#MSG5, (SP) 
#SAY1,-(SP) 
#2,-(SP) 

14 

40(SP), (SP) 
@40(SP),-(SP) 
#FMT12A,-(SP) 
#3,-(SP) 
SP,RO 


1 
Serer 46(SP) 
SP 


1 
acerca: 


4 
MSG1 
0 
R4,RO 
5 


) 
#RBUFF ,-(SP) 


ee 


; LUN,* 
; WROCNT,* 
; *, VALUE 


; WRDCNT,* 


; *,DBL.VALUE 
; LUN,* 


. 5P,* 


DBL .VALUE,* 


DBL.VALUE,* 


. SP,* 


* ,DBL . VALUE 
DBL .VALUE,* 


; DBL.VALUE,* 


. SP,* 
: *,* (LUN) 


; LUN,* 


; VALUE,* 


; LUN,* 
; WRDCNT,* 


SEQ 0171 


TOPS 
PA:< 


4102 
4107 


4111 
4114 


4117 
4118 


4120 


f —_ 


MLXG 


6362 
6363 


eses 044712 


6379 044760 
6380 764 
6381 044766 
6382 044774 
6383 044776 


6384 000 
6385 045002 
6386 004 


3 


PEREEEE 
Ounrwn—-o 


Ori ges 
737 


RE 


043046 
000014 


045454 
000004 


000002 
000005 


000003 


000006 


000004 
035212 


000007 
000020 
046256 
000005 
035212 


000001 
165270 


032464 


032464 


032464 


032464 


002260 


MACRO M1113 24-OCT-80 09:59 PAGE 217 
|INTEGRITY COMMAND INTEGRITY ROUTINE 


sMLX4 


11$: 


12$: 


13$: 


14$: 


D 14 


COMMAND INTEGRITY ROUTINE 
(R2),=(SP) 

PC,RETRY 

#14,SP 

RO 

11$ 


248 
> yepres rena slagics 


1 

#5 ,,WHY .DROPT(R4) 
55 

6 

MSG1 

0 

R4 RO 

51 

Ro es 

14$ 

55 

7 

MSGI 

#6 ,WHY .DROPT(R4) 
R4.RO 

51 

15$ 
RS #4 
17% 

PC, ISOLATE 


#7, WHY .DROPT(R4) 
R4.RO 

51 

#20,SP 

37$ 

RS,#5 

24$ 

PC, ISOLATE 

4 ERROUT 


8 
QML .REG+42 ,RO 


23-0c t-1980 1 
23-Oct-1980 1 


*,* (LUN) 


LUN,* 


VALUE ,* 
*,* (LUN) 


L.UN,* 


VALUE ,* 


*,*(LUN) 
LUN,* 


VALUE ,* 


*,* (LUN) 
LUN,* 


VALUE ,* 


1:4 
:57:0 


SEQ 0172 


3 
5 


TOPS 
PA:< 


4135 
4136 


4137 


4138 
4111 


4143 
4144 


4145 


4146 | 


4111 
4150 


4151 
4152 


4153 
4111 


4157 
4158 


4159 
4160 


4161 
4111 


4165 
4166 


416? 


E 14 
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INTEGRITY COMMAND INTEGRITY ROUTIN SEQ 0173 
6418 sMLX4 23-0¢t-1980 15:01:43 TOPS 
roe ; COMMAND INTEGRITY ROUTINE 23-0ct-1980 14:57:05 PA:< 
6421 045136 006200 ASR RO 
6422 045140 006200 ASR RO 
6423 045142 006200 ASR RO 
6426 045144 006200 ASR RO 
6425 045146 006200 ASR RO 
6426 045150 006200 ASR RO 
6427 045152 042700 177700 BIC #177700,R0 
6428 045156 010046 MOV RO,-(SP) 

6429 045160 012746 006262 MOV #FMT10B,-(SP) 

6430 045164 012746 000002 MOV #2,-(SP) 

6431 045170 010600 MOV SP RO : SP, 

6432 045172 104414 TRAP 14 

6433 045174 062706 000006 ADD #6,SP 

6434 045200 017766 165224 000036 18$: MOV QML .REG+44, 36(SP) : *,OLDSEC 4169 
6435 045206 017700 165214 MOV aM .REG+42,R0 ; 4170 
6436 045212 006200 ASR RO 

6437 045214 006200 ASR RO 

6438 045216 006200 ASR RO 

6439 045220 006200 ASR RO 

6440 045222 006200 ASR RO 

6441 045224 006200 ASR RO 

6442 045226 042700 177700 BIC #177700,R0 

6443 045232 010066 00034 MOV RO, 34(SP) > *,OLDCHN 

6444 045236 012746 000001 MOV #1,-(SP) : 4171 
6445 Of eh2 012746 042434 MOV #READ ,-(SP) 

6446 045246 010446 MOV R4,-(SP) : LUN,* 

6447 045250 010346 MOV R3,-(SP) : WRDCNT,* 

6448 045252 012746 020706 MOV #RBUFF ,-(SP) 

6449 045256 011246 MOV (R2) ,-(SP) 

6450 045260 043046 JSR PC,RETRY 

6451 945264 062706 000014 ADD #14,SP 

6452 045270 020027 000005 CMP RO,#5 

6453 045274 001051 BNE 21$ 

6454 045276 027766 165126 000036 CMP QML .REG+44, 36(SP) : *, OLDSEC 4173 
6455 045304 001034 BNE 20$ 

6456 045306 016646 000034 . MOV 34(SP),-(SP) : OLDCHN,* 

6457 045312 017700 165110 MOV AML .REG+42,R0 

6458 045316 006200 ASR RO 

6459 045320 200 ASR RO 

6460 045322 006200 ASR RO 

6461 045324 006200 ASR RO 

6462 045326 006200 ASR RO 

6463 045330 200 ASR RO 

(464 045332 042700 177700 BIC #177700,R0 

6465 045336 020026 CMP RO, (SP)+ 

6466 045340 001016 BNE 20 

6467 045342 032737 000001 002260 BIT #1, ERROUT ; 4176 
6468 045350 001404 BEQ 19$ 

6469 045352 104456 TRAP 56 ; 4178 
6470 045354 000011 : .wORD 11 

6471 045356 010624 .WORD MSG4 

6472 045360 000000 WORD 0 
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INTEGRITY COMMAND INTEGRITY ROUTINE SEQ 0174 
6474 sMLXG 23-0ct-1980 15:01:43 TOPS 
ot) ; COMMAND INTEGRITY ROUTINE 23-0ct-1980 14:57:05 PA:< 
6477 045362 010446 19$: MOV R4,-(SP) ; LUN,* 4179 
6478 045364 013746 032360 MOV BOARD ,-(SP) 

6479 045370 004737 035302 JSR PC,UP.HARD. COUNT 
6480 045374 00042 ; BR 23$ ; 4173 
6481 045376 032737 000001 002260 20$: iT #1, ERROUT : 4183 
6482 045404 001415 BEQ 22$ 
6483 045406 104457 TRAP = §7 ; 4185 
84 045410 000012 ,WORD 12 
6485 045412 010610 “wORD MSG3 
86 045414 000000 “WORD 0 
6487 045416 000410 BR 228 : 4186 
88 045420 032737 060001 002260 21%: BIT #1, ERROUT : 4190 
6489 045426 001404 BEQ 22$ 
045430 104457 TRAP ‘57 ; 4192 
6491 045432 000013 .WORD 13 
6492 045434 010610 “WORD SG3 
6493 045436 000000 “WORD 
6494 045440 010446 228: MOV R4,-(SP) 3; LUN,* 4193 
6495 045442 013746 032360 MOV BOARD, -(SP) 
6496 045446 004737 035430 JSR PC,UP.SOFT.COUNT 
6497 045452 022626 23$: CMP (SP) +, (SP)+ : 4164 
6498 045454 010416 24$: MOV R4, (SP) ; tUN,* 4199 
6499 045456 010346 MOV R3,-(SP) > WRDCNT,* 
6500 045460 012746 010706 MOV #UBUFF ,-(SP) 
6501 045464 011246 MOV (R2),-(SP 
6502 045466 004737 042622 JSR PC, CHECK 
6503 045472 010005 MOV RO,RS : *,VALUE 
6504 045474 020527 000001 CMP RS. #1 > VALUE,* 4203 
6505 045500 001031 BNE 25$ 
6506 045502 012746 000006 MOV #6,-(SP) 4207 
6507 045506 012746 042622 MOV #CHECK,-(SP) 
6508 045512 010446 MOV R4,-(SP) : LUN,* 
6509 045514 010346 MOV R3.-(SP) > WRDCNT,* 
6510 045516 012746 010706 MOV #WBUFF ,-(SP) 
6511 045522 011246 MOV (R2),-(SP) 
6512 045524 004737 043046 JSR PC RETRY 
6513 045530 062706 000014 ADD #id,sp 
6514 045534 005700 TST RO 
6515 045536 001462 BEQ 28% 
6516 045540 112764 000004 032464 MOVB #4,WHY.DROPT(R4) : *#, (LUN) 4210 
6517 045546 104455 TRAP =‘ 555 : 4211 
6518 045550 000014 .WORD 14 
6519 045552 010512 “WORD SGI 
6520 045554 0000 “wORD 0 
6521 045556 010400 MOV R4,RO > LUN,* 4212 
6522 065560 104451 TRAP ss 51 
6523 045562 000450 BR 28% : 4213 
6524 045564 020527 000002 25$: CMP RS, #2 > VALUE,* 4203 
6525 045570 001012 BNE 26$ 
6526 045572 112764 000005 032464 MOVB #5, WHY .DROPT(R4) : ©, * (LUN) 4218 
6527 045600 104455 TRAP = 55 : 4219 
6528 045602 000015 .WORD 15 
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INTEGRITY COMMAND INTEGRITY ROUTINE 


6530 
6531 
6532 
6533 045604 
6534 045606 
6535 045610 
| 6536 045612 
| 6537 045614 
| ~—s- 6538 045616 
6539 045622 
6540 045624 
6541 045626 
6542 045630 
6543 045632 
6544 045634 
6545 045642 
6546 045644 
6547 045646 
6548 045650 
6549 045654 
6550 045656 
6551 045662 
6552 045664 
6553 045666 
6554 045670 
6555 045672 
6556 045700 
6557 045702 
6558 0457 
6559 045706 
6560 045712 


6583 046016 
6584 046020 


006200 


000006 


000004 
035212 


~~ 


000007 


000005 


035212 
000001 


164472 


177700 


006262 
000002 


gooees 


MLKG 


268: 


032464 


278: 


032464 


288: 
298: 


002260 


000044 30$: 


G 14 


COMMAND INTEGRITY ROUTINE 


MSG1 


#6 ,WHY .DROPT(R4) 
R4 ,RO 

51 

28% 

RS #4 


+ ate 


3 
PC, ISOLATE 
#1 ,ERROUT 


30$ 
7 anette ti 


#177700, RO 
aFAT10B. -(SP) 
#2,-( 


SP, 
14 


#6,SP 
QML .REG+44 ,44(SP) 


on. eee Ae 


; LUN,* 


; VALUE,* 


; *,* (LUN) 
; LUN,* 


; VALUE,* 


3 *,* (LUN) 
; LUN,* 


> VALUE,* 


. SP,* 


; *, OLDSEC 


23-Oct-1980 15: 
23-0ct-1980 14: 


1:4 
7:0 


SEQ 0175 


3 
5 


TOPS 
PA:< 


4220 


4221 
4203 


4225 


4226 
4227 


4228 
4203 


4232 
4233 


4234 
4235 


4236 
4203 


4240 
4241 


4242 


4244 
4245 


— Sess sss 
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}INTEGRITY COMMAND INTEGRITY ROUTINE SEQ 0176 
6586 sMLX4 23-0¢t-1980 15:01:43 TOPS 
eet ; COMMAND INTEGRITY ROUTINE 23-0ct-1980 14:57:05 PA:< 
6589 046022 006200 ASR RO 
6590 046024 042700 177700 BIC #177700,R0 
6591 046030 010066 000042 MOV RO,42(SP) ; *,OLDCHN 
6592 046034 012746 000001 MOV #1,-(SP) : 4246 
6593 046060 012746 042622 MOV #CHECK = (SP) \ 
6594 046044 010446 MOV R4,-(SP) ; LUN,* 

6595 046046 010346 MOV R3,-(SP) ; WROCNT,* 
6596 046050 012746 010706 MOV #UBUFF ,-(SP) 
6597 046054 011246 MOV (R2),-(SP) 
6598 046056 004737 043046 JSR PC, RETRY 
6599 046062 062706 000014 ADD #14,SP 
6600 046066 020027 000005 CMP RO,#5 
6601 046072 001051 BNE 33 
6602 046074 027766 164330 000044 CMP AML .REG+44 ,44(SP) : *,OLDSEC 4248 
6603 046102 001034 BNE 32$ 
6604 046104 016600 000042 MOV 42(SP),RO : OLDCHN,* 
6605 046110 017702 164312 MOV aML .REG+42,R2 
6606 046114 006202 ASR R2 
6607 046116 006202 ASR R2 
6608 046120 006202 ASR R2 
22 006202 ASR R2 
6610 046124 006202 ASR R2 
6611 046126 006202 ASR R2 
6512 046130 042702 177700 BIC #177700,R2 
6613 046134 020200 CMP R2,R0 
6614 046136 001016 BNE 32 
6615 046140 032737 000001 002260 BIT #1, ERROUT ; 4251 
6616 046146 001404 BEQ 31$ 
6617 046150 104456 TRAP 56 ; 4253 
66018 046152 000020 «WORD 20 
6619 046154 010624 WORD MSG4 
6620 046156 000000 . WORD 
6621 046160 010446 31$: MOV R4,-(SP) ; LUN,* 4254 
6622 046162 013746 032360 MOV BOARD ,-(SP) 
6623 046166 004737 035302 JSR PC,UP.HARD. COUNT 
6624 046172 000426 BR 35$ : 4248 
6625 046174 032737 000001 002260 32$: BIT #1, ERROUT ; 4258 
6626 046202 001415 BEQ 34$ 
6627 046204 104457 TRAP 57 ; 4260 
6628 046206 000021 WORD 21 
6629 046210 010610 -WORD MSG3 
6630 046212 000000 -WORD O 
6631 046214 000410 BR 34$ : 4261 
6632 046216 032737 000001 002260 33$: BIT #1,ERROUT : 4265 
6633 046224 001404 BEQ 34$ 
6634 046226 104457 TRAP 57 ; 4267 
6635 046230 000022 -WORD 2 
6636 046232 010610 WORD MSG3 
6637 046234 000000 -WORD 0 
6638 046236 010446 34$: MOV R4,-(SP) > LUN,* ~ 6268 
6639 046240 013746 032360 MOV BOARD, -(SP) 
6640 046244 004737 035430 JSR PC,UP.SOFT.COUNT 


MLX4 


6655 046304 
6656 046310 
6657 046314 
6658 


000026 
000020 
044150 


000001 


044126 
000022 
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sMLX4 
35$: CMP 
36$: ADD 
37$: INC 
38$: CMP 
BGE 
JMP 
39$: TST 
INC 
CMP 
BGT 
JMP 
40$: ADD 
RTS 


; Routine Size: 


; Maximum stack depth per invocation: 


1 14 


COMMAND INTEGRITY ROUTINE 


($P)+,(SP)+ 
#26,SP 


R4,20(SP) 


39$ 


R 
R1,#1 
40$ 


1$ 
#22,SP 
PC 


587 words 
33 words 


LUN 
LUN,* 


> COMP.FLAG 
: COMP.FLAG,* 


23-0c t-198 
23-0 t-198 


01 
01 


5 
4: 


01 
57 


74 
70 


SEQ 0177 


3 
5 


J 14 
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6668 ;MLXK4 23-0ct-1980 15:01:43 TOPS=-20 Bliss-16 V2(206) 
| oe ; DEFINITION OF OPTION 1 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (40) 
6671 ; 4280 ZSBTTL ‘DEFINITION OF OPTION 1° 
6672 ;: 4281 
6673 ; 4282 ROUTINE OPT1: NOVALUE = 
6674 ; 4283 BEGIN ‘'* 1 * START OF ROUTINE 
6675 ; 4284 
6676 ; 4285 !+44 
6677 ; 4286 ' ROUTINE: OPT1 
6678 ; 4287 ! 
6679 ; 4288 ! PURPOSE: TO CHECK ADDRESSES USING DATA = SECTOR NUMBER. 
6680 ; 4289 |! TRANSFERS ARE 4K WORDS IN LENGTH, AND ALL SECTORS 
6681 ; 4290 ! ARE TESTED. 
6682 ; 4291! 
6683 ; 4292 ! THE CODE FOR ‘'OPT1" IN BRIEF: 
6684 ; 4293! 
6685 ; 4294 ! BEGIN 1 (START OF ROUTINE) 
6686 ; 4295 ! SAY ROUTINE IS RUNNING 
6687 ; 4296 =! INCR COMPLEMENT FLAG FROM 0 TO 1 
6688 ; 4297 |! : BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 
6689 ; 4298 =! : INCR LOGICAL UNIT FROM 0 TO LAST 
6690 ; 4299 |! : Betty 3 (START OF LOGICAL UNIT SELECTION LOOP) 
6691 ; 4300 ! : : TEST LOOP: 
6692 ; 4301 ' :: : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS ONE UNIT) 
6693 : 4302 | : : : IF UNIT IS ACTIVE 
6694 ; 4303! : : THEN 
6695 ; 4304 ! : : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
6696 ; 4305 ! : : + INITIALIZE WRITE AND READ BUFFER POINTERS 
6697 ; 4306 ! :: : : SECTOR = LOWEST 
6698 ; 4307 !' :: : : WHILE ww ¥r LEQ HIGHEST DO 
6699 ; 4308 $ ss 883 al 6 (START GCF SECTOR SELELTION LOGP) 
6/00 ; 4309 !' :: : : : GET_WRDCNT 
6701 ; 4310 !' :: : : : GENERATE THE PATTERN 
6702 ; 4311 !' : : : : : SET UP BUFFER POINTERS BEFORE TRANSFER 
6703 ; 4312 ! 3:3: : : : WRITE 
6704 ; esis 2 tees LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
6705 ; 4314 !' : : : : : CHOOSE WHETHER TO WRITE CHECK OR READ 
6706 ; 4315 ! :: : : : DO THE WRITE CHECK OR READ 
6707 ; 4316 !' :: : : « LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
6708 ; 4317 ! : : : : : CHANGE BUFFER POINTERS AFTER TRAN NSFER 
6709 : 4318 ' : 3: : : : UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
6710 ; 4319 ! : : : : : END 6 (END OF SECTOR SELECTION LOOP) 
6711 ; 4320 !' :: : : END 5 (END OF + ay _ AN ACTIVE UNIT) 
6712 ; 4321 ! : : : END 4 (END OF TESTLO 
6713 ; 4322 ! END 3 (END OF LOGICAL OnIT SELECTION LOOP) 
6714 ; 4323! > END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 
6715 ; 4324 ! RETURN 
6716 ; 4325 ' END 1 (END OF ROUTINE) 
6717 ; 4326 !__ 
6718 ; 4327 
6719 ; 4328 LABEL 
6720 ; 4329 LOOP; 
6721 ; 4330 
6722 ; 4331 LOCAL 


| 
| 
| 
| 
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INTEGRITY COMMAND INTEGRITY ROUTINE 


23-0ct-1980 15:01:43 TOPS-20 Bliss-16 V2(206) 


DEFINITION OF OPTION 1 23-0ct-1980 14:57:05 PA:<ROSEND>MLX4.BLI.1 (40) 
VALUE, WRDCNT, COMMAND, PTR, OLDSEC, OLDCHN, SECTOR, DBL_VALUE; 


PRINTB(SAY2, WRD34 RTN1); 
'*RUNNING OPT1° 


INCR COMP =f LAG FROM 0 T0 1 D 
BEGIN 


DO 
*2* .¥ OF pars a aes SELECTION LOOP 


INCR Lun FROM_O TO (.LSUNIT 
BEGIN 


BE 
IF 
TH 


'® 3 * START OF LOGICAL UNIT SELECTION LOOP 


IN !* 4 * START OF THE LOOP THAT COMPLETELY TESTS ONE UNIT 
eae nate ctans EQL ACTIVE 


BEGIN !* 5 * START OF TEST FOR AN ACTIVE UNIT 
LS$LUN = .LUN; 


SECTOR s LOWEST; 

WHILE .SECTOR LEQ HIGHEST DO 
BEGIN '* 6 * START OF SECTOR SELECTION LOOP 
GEN1(. SECTOR, .COMP_FLAG); 
WRDCNT = GET WRDCNT(.SECTOR,HIGHEST); 
SET_PTRS(.WRBCNT); 


VALUE = WRITE(.LUN, .WROCNT,.WPTR,.SECTOR); 
4 
SEE HOW SUCCESSFUL THE WRITE WAS: 


SELECTONE .VALUE OF ISEE "SYSERR' FOR DEFINITION 
ie! ‘OF ERROR # CONTAINED IN 'VALUE' 
BEGIN !* 6A * RETRY ALLOWED 


IF RETRY(SIX,WRITE,.LUN,.WRDCNT,.WPTR,.SECTOR) NEQ 0 
ag 'THE RETRY FAILED -- SYSTEM FATAL ERROR 


GIN 
WHY DROPTC.LUN] = CODE_4; 
ERRDF(101,MSG1,0);  !**** OPTION 1 ERROR 01 *eee 


DODUC.LUND ; 
LEAVE LOOP: ' JUMP JUST BEYOND END OF BLOCK * 4 * 
rg EN: "te 6A * 
BEGIN !* 6B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
WHY DROPTL.LUN] = CODE_5; 
ERRBF (102,MSG1 (my 'Zeee OPTION 1 ERROR 02 *e** 
DODU(.LUN) ; 
LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
£308? 's 6B * 
BEGIN !* 6C * FATAL DRIVE ERROR -- NO RETRY ALLOWED 


ERRDF(103,MSG1,0);  ‘*#e* OPTION 1 ERROR 03 eee 
WHY _DROPTC.LUN) = CODE_6; 


SEQ 0179 


L 14 
MLXG MACRO M1113 24-0CT- 80 09:59 PAGE 225 
INTEGRITY COMMAND INTEGRITY ROUTINE SEQ 0180 


6780 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
ore ; DEFINITION OF OPTION 1 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (40) 
6783 ; 4384 DODU(.LUN); 
6784 ; 4385 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 4 * 
6785 ; 4386 END; ‘!* 6C * 
6786 ; 4387 
6787 ; 4388 TES; 
6788 ; 4389 
6789 ; 4390 COMMAND = CHOOSE(); 
6790 ; 4391 IF . COMMAND EQL READ 
6791 ; 4392 THEN 
6792 ; 4393 
6793 ; 4394 PTR = .RPTR; 
6794 ;: 4395 VALUE = READ(.LUN, .WRDCNT,.RPTR,.SECTOR); 
6795 ; : 4396 END 
67% ; 4397 SE 
6797 ; 4398 BEGIN 
6798 ; 4399 PTR = .WPTR: 
6799 ; 4400 VALUE = CHECK(.LUN, .WRDCNT,.WPTR,.SECTOR); 

; 4401 END; 
6801 ; 4402 '¢ 
6802 ; 4403 ' SEE HOW SUCCESSFUL THE OPERATION WAS: 
6803 ; 4404 te 

; 4405 SFLECTONE .VALUE OF SEE "SYSERR' FOR DEFINITION 
6805 ; 4406 SET fF ERROR # CONTAINED IN ‘VALUE' 
6806 ; 4407 (0) : 
6807 ; 4408 IF .COMMAND EQL READ 
6808 ; 4409 THEN 
6809 ; 4410 BEGIN 
6810 ; 4411 IF (DBL_VALUE = DOUBLE_CHECK(.WPTR,.RPTR,.WRDCNT)) NEQ 0 
6811 ; 4412 THEN 
6512 ; 4413 BEGIN 
6813 ; 4414 SAYWHO(.LUN); 
6814 ; 4415 PRINTB(SAY1, MSG5); 
6815 ; 4416 '"ECC LOGIC FAILED TO DETECT DATA ERROR’ 
6816 ;: 4417 PRINTB(FMT12A,..DBL_VALUE,.DBL_VALUE); 
6817 ; 4418 + poe DATA: XXXRXX AT "LOCATION. vyvyyy" 
6818 ; 4419 DBL_VALUE = .DBL_VALUE + BUFSIZ & 2; 
6819 ; 4420 PRIRTBCFATI25, BBL_VALUE,. LUE); 
6820 ; 4421 '*BAD DATA: PPPPPP A Pibention” a0daaa' 
6821 ; 4422 WHY DROPTC. tm) = CODE ;- 
6822 ; 4423 ERRDF(104,MSG1,0);  [** OPTION 1 ERROR 04 e#ee 
6823 ; 4424 DODU(.LUN); 
6824 ; 4425 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
6825 ; 4426 END; 
6826 ;: 4427 END; 
6827 ; 4428 C1) : 
6828 ; 4429 BEGIN !* 6D RETRY ALLOWED 
6829 ; 4430 IF RETRY (SIX, .COMMAND, .LUN, .WRDCNT,.PTR,.SECTOR) NEQ 0 
6830 ; 6431 THEN 'THE RETRY FAILED -- SYSTEM FATAL ERROR 
6831 ; 4432 BEGIN 
6832 ; 4433 ROPTC.LUN) = CODE_4; 
6833 ; 4434 PRRBE C105 ci MSG1,0); ive OPTION 1 ERROR 05 *ee# 
6834 ; 4435 DODU(.LUN); 


c— —_—_—- - —_——__—— 
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MLXG MACRO M1113 24-OCT-80 09:59 PAGE 226 
INTEGRITY COMMAND INTEGRITY ROUTINE SEQ 0181 
| 6836 5MLK4 3-0ct-1980 15:01:43  TOPS-20 Bliss-16 V2(206) 
| ret 3 DEFINITION OF OPTION 1 3-0ct-1980 14:57:05 PA: <ROSEND>MLX4.BLI.1 (40) 

6839 ; 4436 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

6840 ; 4437 END; 

6841 ; 4438 END; '® 6D * 

6842 ; 4439 (2) : 

6843 ; 4440 BEGIN. '® 6E€ * * CONTROLLER ERROR == NO RETRY ALLOWED 

6844 ; 6441 ROPTL. LUN] = COD 

6845 ; 4442 ERRBP (106. MSG1,0); Faeke OPTION 1 ERROR 06 *ee* 

6846 ; 4443 DODU(. LUN); 

6847 ; 4444 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

6848 ; 4445 END; 'e 6€ * 

6849 ; 4446 (3) : 

6850 ; 4447 BEGIN, * 6F * — DRIVE ERROR -- NO RETRY ALLOWED 

6851 ; 4448 WHY_D ROPT {.LUN] = : 

6852 ; 4449 ERROP C107. MSG1, AB, "ee OPTION 1 ERROR 07 *ee# 

6853 ;: 4450 DODU(.LUN); 

6854 ; 4451 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

6855 ; 4452 END; ‘!* 6F * 

6856 ; 4453 (4] : 

6857 ; 4454 BEGIN R 66 * UNRECOVERABLE DATA ERROR 

6858 ; 4455 ISOLA 

6859 ; 4456 Patt te * mSG2 0); ‘!eee2 OPTION 1 ERROR 08 *ee* 

6860 : 4457 WHY _DROPTC.LUNJ = CODE_7; 

6861 ; 4458 pop0<. LUN); 

6862 ; 4459 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * fe 

6863 ; 4460 END; !* 6G * — 

6864 ; 4461 (5] : ' 

6865 ; 4462 BEGIN !* 6H * RECOVERABLE DATA ERROR 

6866 ; 4463 ISOLATES) « 

6867 ; 4464 IF .ERRO 

6868 ; 4465 THEN PRINT CFRT1OB, CHAN) 

6869 ; 4466 BIT 

6870 ; 4467 OLDSEC = MEL; 

6871 ; 4468 OLDCHN = 

6872 ; 4469 IF RETRY (ONE. COMMAND, <LUN, .WRDCNT, .PTR,.SECTOR) EQL 5 

6873 ; 4470 THEN 

6874 ; 4471 IF ((.MLEL EQL .OLDSEC) AND (.CHAN EQL .OLDCHN)) 

6875 : 4472 THEN 

6876 ; 4473 BEGIN 

6877 ; 4474 IF .ERROUT 

6878 ; 4675 THEN 

6879 ; 4476 ERRHRD(109,MSG4,0); ‘!**** OPTION 1 ERROR 09 *ee* 

6880 ; 4477 UP_HARD_COUNT(.LUN, .BOARD) ; 

6881 ; 4478 EN 

6882 ; 4479 ELSE 

6883 ; 4480 BEGIN 

6884 ; 4481 IF .ERROUT 

6885 ; 4482 THEN 

6886 ; 4483 ERRSOFT(110,MSG3,0); ‘*e** OPTION 1 ERROR 10 *ee* 

6887 ; 4484 UP_SOFT_COUNT(.LUN, .BOARD) ; 

6888 ; 4485 END 

6889 ; 4486 ELSE 


4487 BEGIN 
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poe ewe 


INTEGRITY COMMAND INTEGRITY ROUTINE SEQ 0182 
6892 MLK 23-0ct-1980 15:01:43 TOPS-20 Bliss-16 v2(206) 
peat 3 DEFINITION OF OPTION 1 23-0¢t-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (40) 
6895 ; 4488 IF .ERROUT 
689% ; 4489 THEN 
6897 : 4490 ERRSOFT(111,MSG3,0); !*#e* OPTION 1 ERROR 11 eee 
6898 : 4491 UP_SOFT_COUNT(.LUN, .BOARD); 
6899 : 4492 END; 
6900 : 4493 END; !* 6H * 
6901 : 4494 
6902 ; 4495 TES; 
6903 : 4496 
6904 : 4497 WPTR = .WPTR + (.WRDCNT * 2); 
6905 : 4498 SECTOR = .SECTOR + (.WRDCNT/256); 
6906 ; 4499 END; ‘'* 6 * END OF SECTOR SELECTION LOOP 
6907 : 4500 END; |'* § * END OF TEST FOR AN ACTIVE UNIT 
6908 : 4501 END; |!* 4 * END OF LOOP THAT COMPLETELY TESTS ONE UNIT 
6909 : 4502 END; |'* 3 * END OF LOGICAL UNIT SELECTION LOOP 
6910 : 4503 END; |!* 2 * END OF COMPLEMENT FLAG SELECTION LOOP 
6911 : 4504 RETURN: 
aote 3 4505 END; !* 1 * END OF ROUTINE 
6917 .SBTTL OPT1 DEFINITION OF OPTION 1 
6921 046316 004137 005222 OPT1: JSR R1,$SAVES : 4282 
6922 046322 162706 000020 SUB #20,SP 
6923 046326 012746 007250 MOV #RTN1,-(SP) : 4334 
6924 046332 012746 006766 MOV #WRD34,-(SP) 
6925 946336 012746 006522 MOV #SAY2, = (SP) 
6926 046342 012746 000003 MOV #3,-(SP) 
6927 046346 010600 MOV SP.RO > SP,* 
6928 046350 104414 TRAP —s-_:‘14 
6929 046352 005066 000026 CLR 26(SP) : COMP.FLAG 4337 
6930 046356 013766 002012 000012 1S: MOV LSUNIT,12(SP) : 4339 
6931 046364 005066 000010 CLR 10(SP) > LUN 
6932 046370 000137 050170 JMP 29% 
6933 046374 016600 000010 2$: MOV 10(SP) ,RO : LUN,* 4343 
6934 046400 006200 ASR RO 
6935 046402 006200 ASR RO 
6936 046404 006200 ASR RO 
6937 046406 062700 032460 ADD DRIVE . STATUS ,RO 
6938 046412 010046. MOV SP) 
6939 046414 016646 000012 MOV T2tSP} -(SP) > LUN,* 
6940 046420 042716 177770 BIC #177770, (SP) 
6941 046424 012746 000001 MOV ". - (SP) 
6942 046430 005046 CLR -(§P) 
6943 046432 004737 004244 JSR PC ,BL$GT2 
6944 046436 062706 000010 ADD #10,SP 
6945 046442 005300 DEC RO 
6946 046444 001150 BNE 7$ 
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OPT1 DEFINITION OF SPTION SEQ 0183 
6948 MLKG 23-0ct-1980 15:01:43 TOPS 
| 2 ; DEFINITION OF OPTION 1 23-Oct-1980 14:57:05 PA:< 
6951 046446 016637 000010 002074 MOV 10(SP) ,LSLUN 3 LUN,* 4346 
6952 046454 u1e737 010706 030706 MOV #WBUFF .WPTR : 4347 
6953 046462 012737 020706 030710 MOV @RBUFF RPTR : 4348 
6954 046470 016601 000010 MOV 10(SP).R1 > LUN,* 4349 
6955 046474 006301 ASL R1 
6956 046476 016105 032476 MOV LOW SECTCR1) RS : *, SECTOR 
6957 046502 020561 032516 3$: CMP R5,TOP.SECTiR?) ; SECTOR,* 4350 
6958 046506 003127 BGT 7$ 
6959 046510 010546 MOV RS,-(SP) > SECTOR,* 4352 
960 046512 016646 000030 MOV 30(SP) ,-(SP) > COMP.FLAG,* 
6961 046516 004737 036014 JSR PC, GENT 
6962 046522 010516 MOV RS, (SP) ; SECTOR,* 4353 
6963 046524 016146 032516 MOV TOP.SECT(R1) ,-(SP) - 
046530 004737 044034 JSR PC,GET.WRDCNT 
6965 046534 010003 MOV RO,R3 : *,WRDCNT 
046536 010316 MOV R3,(SP) ; WROCNT,* 4354 
6967 046540 004737 043770 JSR PC.SET.PTRS 
6968 046544 016616 000016 MOV 16(SP), (SP) > LUN,* 4356 
046550 010346 MOV R3,-(SP) + WRDCNT,* 
6970 046552 013746 030706 MOV WwPTR,-(SP) 
6971 046556 010546 MOV RS,-(SP) : SECTOR,* 
6972 046560 004737 042246 JSR PC.WRITE 
6973 046564 0100 MOV RO,R4 > *, VALUE 
6974 046566 020427 000001 CMP R4.#1 > VALUE, * 4360 
6975 046572 001035 BNE 4$ | 
6976 046574 012746 000006 MOV #6,-(SP) : 4364 
6977 046600 012746 042246 MOV #WRITE,-(SP) 
6978 046604 016646 000030 MOV 30(SP) ,-(SP) > LUN,* 
6979 046610 010346 MOV R3,-(SP) ; WROCNT,* 
6980 046612 013746 030706 MOV WPTR,-(SP) 
$981 046616 010546 MOV R5S,-(SP) > SECTOR,* 
6982 046620 004737 043046 JSR PC RETRY 
6983 046624 062706 000014 ADD #i4,SP 
6984 046630 005700 TST RO 
6985 046632 001456 BEQ aS 
6986 046634 016602 000024 MOV 24(SP) ,R2 > LUN,* 4367 
6987 046640 112762 000004 032464 MOVE #4,WHY.DROPT(R2) 
6988 046646 104455 TRAP =‘ 55 4368 
6989 046650 000145 -WORD 145 
6990 046652 010512 .WORD SG1 
6991 046654 000000 “WORD 0 
6992 046656 016600 000024 MOV 24(SP),RO > LUN,* 4369 
6993 046662 104451 TRAP ss 51 
6994 046664 000436 BR 6$ : 4370 
995 04 020427 000002 4$: CMP R4 #2 > VALUE,* 4360 
046672 001015 BNE 5$ 
6997 046674 016602 000024 MOV 24(SP),R2 ; LUN,* 4375 
6998 046700 112762 000005 032464 MOVB  #5,WHY.DROPT(R2) 
6999 046706 104455 TRAP =: 55 : 4376 
7000 046710 000146 .WORD 146 
7001 046712 010512 .WORD SG1 
7002 046714 000000 WORD 0 
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‘OPT1 DEFINITION OF OPTION SEQ 0184 
| 7004 ZMLX4 23-0ct-1980 15:01:43 TOPS 
| 2005 : DEFINITION OF OPTION 1 33-0ct-1980 14:57:05 PA:< 
7007 046716 016600 000024 MOV 24(SP),RO : LUN,* 4377 
7008 046722 104451 TRAP ss 51 
046724 000416 BR 6$ : 4378 
7010 046726 020427 000003 S$: CMP RG #3 + VALUE,* 4360 
7011 046732 001016 BNE 8$ 
046734 104455 TRAP = 455 : 4382 
7013 046736 000147 WORD 147 
7014 046740 010512 “WORD MSG1 
7015 046742 000000 “WORD 0 
7016 046744 016602 000024 MOV 24(SP),R2 : LUN,* 4383 
7017 046750 112762 000006 032464 MOVB #6, WHY .DROPT(R2) 
7018 046756 010200 MOV R2,RO : LUN,* 4384 
7019 046760 104451 TRAP ss 51 : 
7020 046762 062706 000014 6$: ADD #14,SP ; 4385 
7021 046766 000543 7$: BR 13$ 
7022 046770 004737 043010 8$: JSR PC, CHOOSE : 4390 
7023 046774 010066 000034 MOV RO, 34(SP) : *, COMMAND 
7024 047000 005002 CLR R2 : 4391 
7025 047002 020027 042434 CMP RO, #READ : COMMAND, * 
7026 047006 001015 BNE 9$ 
7027 047010 005202 INC R2 
7028 047012 013766 030710 000036 MOV RPTR,36(SP) : *,PTR 439% 
7029 047020 016646 000024 MOV 24(SP) ,-(SP) > LUN,* 4395 
7030 047024 010346 MOV R3,-(SP) : WRDCNT,* 
7031 047026 013746 030710 MOV RPTR,-(SP} 
7032 047032 010546 MOV R5,-(SP) : SECTOR,* 
7033 047034 004737 042434 JSR PC.READ 
7034 047040 000413 BR 10$ 
7035 047042 013766 030706 000036 9S: MOV WPTR, 36(SP) : *,PTR 4399 
7036 047050 016646 000024 MOV 24 (SP) ,-(SP) > LUN,* 4400 
7037 047054 010346 MOV R3,-(SP) : WRDCNT,* 
7038 047056 013746 030706 MOV wPTR,-(SP) 
7039 047062 010546 MOV R5,-(SP) : SECTOR,* 
7040 047064 004737 042622 JSR PC. CHES* 
7041 047070 010004 10$: MOV RO. #4 > *, VALUE 
7042 047072 001102 BNE 14$ : 4405 
7043 047074 006002 ROR R2 : 4408 
7044 047076 103402 BLO 12% 


7045 047100 000137 050122 11$: JMP 7$ 
7046 047104 013746 030706 12$: MOV WPTR,-(SP) ; 4411 
7047 047110 013746 030710 MOV RPTR,-<SP) - 
7048 047114 010346 MOV R3,-(SP) ; WRDCNT,* 
7049 047116 004737 041226 JSR PC ,DOUBLE . CHECK 
7050 047122 062706 000006 ADD #6,SP 
1 047126 010066 000050 MOV RO,50(SP) ; *,DBL.VALUE 
7052 047132 001742 BEQ 
7053 047134 016644 000034 MOV 34(SP) ,-(SP) ; LUN,* 4414 
7054 047140 004737 033436 JSR PC ,SAYWHO 
7055 047144 012716 010640 MOV #ASG5, (SP) 3 4415 
7056 047150 012746 006514 MOV #SAY1,-(SP) 
7057 047154 012746 000002 MOV #2,-(SP) 
7058 047160 010600 MOV SP,RO : SP,* 
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15$: 


dD 15 


DEFINITION OF OPTION 1 


14 

56 (SP), (SP) 
@56(SP) ,-(SP) 
#FMT12A,-(SP) 
#3,-(SP) 

SP RO 


. 


14 
#10000 ,64 (SP) 
64(SP) , (SP) 
064 (SP) ,-(SP) 
#FMT12B,-(SP) 
#3, — 


*S 


56(S R2 
io, uny DROPT(R2) 


150 
MSG1 


0 

56(SP),RO 

51 

#46, SP 

RG, #1 

15§ 

#6,-(SP) 
46(SP) ,-(SP) 
40(SP) . -(SP) 
R3,-(SP) 
56(SP) ,-(SP) 


R5,-(SP) 
PC RETRY 
#14 


$4ts R2 
#4, ONY. “DROPT(R2) 
55 
51 
MSG1 
0 
34(SP),RO 
51 


18$ 
° #2 


wae R2 
#5, ony. “DROPT(R2) 


DBL .VALUE ,* 
DBL. VALUE ,* 


SP,* 
* ,DBL. VALUE 


DBL .VALUE,* 
DBL.VALUE ,* 


SP,* 
LUN,* 


LUN,* 


VALUE , * 


; COMMAND ,* 


PT 
SECTOR,* 


LUN,* 


LUN,* 


VALUE ,* 
LUN,* 
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23-0ct-19 


oo 


SEQ 0185 
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PA:< 


4417 
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ott DEFINITION OF OPTIO! SEQ 0186 
7116 ZMLX4 23-0¢t-1980 15:01:43 TOPS 
ni ; DEFINITION OF OPTION 1 23-0ct-1980 14:57:05 PA:< 

7119 047426 000000 _. .WORD 0 
7120 047430 016600 000034 MOV 34 (SP) ,RO ; LUN,* 4443 
7121 047434 104451 TRAP 51 
7122 047436 000440 BR 18$ ; bhbs 
7123 047440 020427 000003 16$: CMP R483 ; VALUE,* 4405 

7124 047444 001015 BNE 75 
7125 pe reee 016602 000034 MOV 34(SP),R2 ; LUN,* 4448 
7126 047452 112762 000006 032464 MOVB #6, ae *DROPT(R2) 

7127 047460 104455 TRAP 55 : 4449 
7128 047462 153 WORD 153 
71 464 010512 WORD MSG1 
7130 047466 000000 WORD 0 
7131 047470 016600 000034 MOV 34(SP),RO ; LUN,* 4450 
7132 047474 104451 TRAP 51 
7133 047476 000420 BR 18$ ; 4451 
7134 047500 020427 000004 178: CMP RG HG ; VALUE,* 4405 
7135 047504 001021 BNE 20$ 
7136 047506 004737 035212 JSR PC, ISOLATE ; 4455 
7137 047512 104455 TRAP 55 ; 4456 
7138 047514 000154 WORD 154 
7139 047516 010542 WORD MSG2 
7140 047520 000000 .WORD 0 
7141 047522 016602 000034 MOV 34(SP),R2 : LUN,* 4457 
7142 047526 112762 000007 032464 MOVB #7, thy *DROPT(R2) 

143 047534 010200 MOV R2.RO ; LUN,* 4458 
7144 047536 104451 TRAP 51 
7145 047540 062706 000024 18$: ADD #24,SP ; 4459 
7146 047544 000137 050164 19$: JMP 28% 
7147 047550 020427 000005 20$: CMP R445 ; VALUE,* 4405 
7148 047554 001162 BNE 27$ 
7149 047556 004737 035212 JSR PC, ISOLATE ; 4463 
7150 047562 032737 000001 002260 BIT #1, ERROUT : 4464 
7151 047570 001423 BEQ 21$ 
7152 047572 017702 162630 MOV @ML .REG+42,R2 ; 4465 
7153 047576 006202 ASR R2 
7154 047600 006202 ASR R2 
7155 047602 006202 ASR R2 
7156 047604 006202 ASR R2 

7606 006202 ASR R2 

7158 047610 006202 ASR R2 

7159 047612 042702 177700 BIC #177700, R2 

7160 047616 010246 MOV R2,- 

7161 047620 012746 006262 MOV mrATIOB -(SP) 

7162 047624 012746 000002 MOV #2,-(SP) 

7163 047630 010600 MOV SP.RO ; SP, 

7164 047632 104414 TRAP 14 

7165 047634 062706 000006 ADD #6,SP 

7166 047640 017766 162564 000040 21$: MOV QML .REG+44 ,40(SP) : *,OLDSEC 4467 
7167 047$46 017702 162554 MOV @ML .REG+42,R2 ; 4468 
7168 047652 006202 ASR R2 

7169 047654 006202 ASR R2 

7170 047656 006202 ASR R2 


_ 
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016646 


—m 
oo ge 
2s 

oO 
—— 


177700 


000040 
000056 
043046 
000014 
000005 
162464 


000042 
162446 


177700 


000001 


000034 
032360 
035302 


000001 


000001 


000034 


000040 


002260 


002260 


002260 


-80 09:59 PAGE 232 


sMLK4 


228: 


238: 


248: 


258: 
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DEFINITION OF OPTION 1 


R2 
Re 


R2 
#177700,R2 
R2,42(SP) 
#1,-(SP) 
46(SP),-(SP) 
pe Pg al 


QML .REG+44 ,40(SP) 
23% 


42(SP) ,RO 


QML .REG+42 ,R2 


R 
#177700,R2 
RZ,RO 


$ 
Femmes 


34(SP),-(SP) 
BOARD ,-(SP) 


PC,UP.HARD.COUNT 


#1 ,ERROUT 


25$ 


0 
34(SP),-(SP) 


* ,OLDCHN 
COMMAND , * 


* ,OLDSEC 
OLDCHN,* 


; LUN,* 


; LUN,* 


23-Oct-19 
23-0ct-19 


oo 


SEQ 0187 


TOPS 
PA:< 


4469 


4471 


4474 
4476 


4477 
447) 


4481 
4483 


4484 
4488 


4490 


4491 


000207 


030706 
030706 


000400 
005056 
000026 


0 
000010 


046374 
000026 
000026 


046356 
000030 


000012 


000001 


31$: 
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288: INC 
29%: 


30$: INC 


; Routine Size: ! 
; Maximum stack depth per invocation: 


6 15 


DEFINITION OF OPTION 1 
BOARD ,-(SP) 


PC ,UP.SOFT. COUNT 
i 


10(SP) 
10(SP),12(SP) 
30% 

2$ 

26(SP) 
26(SP) #1 

31$ 

1$ 

#30,SP 

PC 


486 words 


37 words 


WRDCNT,* 


WRDCNT,* 


SECTOR,* 
*, SECTOR 


LUN 
LUN,* 


COMP .FLAG 
COMP .FLAG,* 


23-0c t-198 
23-0c t-198 


oo 


SEQ 0188 


TOPS 
PA:< 


4462 
4497 


4498 
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7265 ;MLXG 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
1506 : DEFINITION OF OPTION 2 23-0ct-1980 14:57:05 PA:<ROSEND>MLX4.BLI.1 (41) 
7268 4506 %SBTTL ‘DEFINITION OF OPTION 2° 
7269 4507 
7270 4508 ROUTINE OPT2: NOVALUE = 
7271 4509 BEGIN ‘'* 1 * START OF ROUTINE 
7272 4510 
7273 451 ++ 
7274 4512 ROUTINE: OPT2 
7275 4513 
7276 4514 PURPOSE : TO CHECK ON DATA RELIABILITY USING THE PATTERNS FROM 


THE PATTERN TABLE. 
THE CODE FOR 'OPT2" IN BRIEF: 


1 
i] 
! 
! 
1 
4 
1 
1 
! BEGIN 1 (START OF ROUTINE) 
' SAY THE ROUTINE 1S RUNNING 
' CHOOSE A MAXIMUM ae a 
4522 ! INCR COUNT FROM 1 TO (2M 
' : BEGIN 2 (START OF PATTERN. SELECTION LOOP) 
' : GENERATE THE eu re 
! : nae LUN FROM 0 TO LAST 
; : : TESTLOOP 3 (START OF +N OGICAL UNIT SELECTION LOOP) 
: ee eOEgIN i (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
— d UNIT IS ACTIVE 
! - THEN 
1 
' 
' 


: : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
t : INITIALIZE THE WRITE AND READ BUFFER POINTERS 
: : SECTOR = LOWEST 

' : : : : WHILE SECTOR LEQ HIGHEST DO 

OS55 <2 4 2-28 2 oT on 6 ane OF SECTOR SELECTION LOOP) 


: GET_WRDCNT 
Sar 5 eee ee aes “Up BUFFER POINTERS BEFORE TRANSFER 


: WRIT 
4539 ! : : : : : LOOK FOR ERRORS (IF DROP UNIT, re TESTLOOP) 
4540 ! : : : : : CHOOSE WHETHER TO WRITE CHECK OR READ 
4541 ! : : : : : DO THE WRITE CHECK OR READ 
4542 ! : : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
4543 i : : : : : CHANGE BUFFER POINTERS AFTER TRANSFER 
4544 ! : : : : : UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
4545 ! : : : : : END 6 (END OF SECTOR SELECTION LOOP) 
' ; : 2: 2: END 5 (END OF TEST FOR AN ACTIVE UNIT) 
! : : : END 4 (END OF TESTLOOP) 
' ; :_END 3 (END OF LOGICAL UNIT SELECTION LOOP) 
4549 !  : IF NOT THE QUICK VERIFY PASS THEN “LOOP READ* (DESCRIBED BELOW) 
; : END 2 (END OF PATTERN SELECTIGN LOOP) 
' 
{ 


RETURN 
END 1 (END OF ROUTINE) 


N : NNN 

ronon 

S$ =) =) DOO 

mo 

. — . — > . . . . . . . = . _ . J s. . . J — . . . 2 * . . 7 — . . . . * . . . . a . — . . 7 — = . 7 . . 

aoe 

Mn 

INPROM 

OOo 


4 
5 LABEL 
: LOOP, LOOP2; 


™N 
w 
— 
co 


SEQ 0189 
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7321 ;MLK4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
rasg ; DEFINITION OF OPTION 2 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (41) 
7324 ; 4558 LOCAL 
7325 ; 4559 WRDCNT, VALUE, TEMP, MAXPAT, OLDSEC, OLDCHN, SECTOR, 

7326 ; 4,560 PTR, COMMAND, DBL_VALUE; 

| Yer 3 4561 

7328 4562 PRINTB(SAY2,WRD34 RIN) ; 
7329 ; 4563 '*RUNNING OPT2 

7330 ; 4564 

| Fas 3 4565 PATTERN = 0; 

| T5323 4566 
7333 ; 4567 IF .QUICK NEQ 0 
7334 ; 4568 THEN MAXPAT = 1 
7335 ; 4569 ELSE MAXPAT = NUM_PATS; 

7336 ; 4570 
7337 ; 4571 INCR COUNT Mg 1 TO (.MAXPAT*#2) 
7338 ; 4572 BEGIN '* 2 * START OF PATTERN. SELECTION LOOP 

| 7339 5 4573 SELPAT 
7340 ; 4574 IF te GTR 0 
7341 ; 4575 THEN 
7342 ; 4576 PRINTB(FMT1A,PHR9, .PATTERN) 

7343: 4577 '*PATTERN NUMBER XX' 

7344 ; 4578 ELSE 

7345 ; 4579 BEGIN 

7346 : 4580 TEMP = =<. PATTERN 

7347 : 4581 PRINTB(FAT IB, pan. * TEMP) ; 

7348 ; 4582 PATTERN NUMBER - XX' 

7349 : 4583 

7350 ; 4584 GENS OB ATTERN): 

7351 : 4585 INCR LUN FROM 0 TO (.LSUNIT - 1) DO 

7352 ; 4586 BEGIN !* 3 * START OF LOGICAL UNIT SELECTION LOOP 

7353; 4587 LOOP: 

7354 ; 4588 BEGIN !'* 4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 
7355 ; 4589 IF .DRIVE_STATUSC.LUN) EQL ACTIVE 

7356 ;: 4590 THEN 

7357 ; 4591 BEGIN !'* 5 * START OF TEST FOR AN ACTIVE UNIT 

7358 : 4592 L$LUN = .LUN; 

7359 ; 4593 WPTR = WBUFF; 

7360 ; 4594 RPTR = RBUFF: 

7361 ;: 4595 SECTOR = LOWEST; 

7362 ; 4596 WHILE SECTOR LEQ HIGHEST DO 

7363 ; 4597 BEGIN '* 6 * START OF SECTOR SELECTION LOOP 

7364 ; 4598 WRDCNT = GET_WRDCNT(.SECTOR,HIGHEST); 

7365 ; 4599 SET _PTRS(.WRBCNT) ; 

7366 ; 4600 

7367 : 4601 VALUE = WRITE(.LUN, .WROCNT, .WPTR, .SECTOR); 

7368 ; 4602 '+ 

7369 : 4603 ' SEE HOW SUCCESSFUL THE WRITE WAS: 

7370 : 4604 '- 

7371 ; 4605 SELECTONE .VALUE OF : SEE "SYSERR' FOR DEFINITION 
7372 ;: 4606 SET 'OF ERROR # CONTAINED IN ‘VALUE" 
7373 ; 4607 1): 

7374 ;: 4608 BEGIN !* 6A * RETRY ALLOWED 

7375 : 4609 IF RETRY(SIX,WRITE,.LUN,.WROCNT,.WPTR,.SECTOR) NEQ 0 
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7377 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
rer8 3 DEFINITION OF OPTION 2 23-0¢t-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (41) 
7380 ; 4610 THEN 'THE RETRY FAILED == SYSTEM FATAL ERROR 
7381 ; 4611 BEGIN 
7382 ; 4612 WHY _DROPTC.LUN] = CODE_4 
7383 ; 4613 ERRDP (201. MSGI, 0); Sese OPTION 2 ERROR 01 eeee 
7384 ; 4614 DODU(.LUN); 

7385 ; 4615 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
7386 ; 4616 END; 

7387 ; 4617 END; !* 6A * 

7388 ; 4618 (2) : ; 

7389 ; 4619 BEGIN '* 6B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
7390 ; 4620 WHY DROPTC.LUN] = CODE_5; 

7391 ; 4621 ERRDF (202. MSG1,0); '#eee OPTION 2 ERROR 02 *eee 

7392 ; 4622 DODU(.LUN); 

7393 : 4623 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
739% ; 4624 END; '* 6B * 

7395 : 4625 [3] : 

7396 ; 4626 BEGIN '* 6C * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
7397 ; 4627 ERRDF(203,MSG1,0);  !*#e* OPTION 2 ERROR 03 eeee 

7398 : 4628 WHY DROPTC.LUN] = CODE_6; 

7399 ; 4629 DOD0(.LUN); 

7400 ; 4630 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
7401 : 4631 END; ‘!* 6C * 

7402 ; 4632 

7403 ; 4633 TES; 

7404 ; 4634 

7405 : 4635 COMMAND = CHOOSE(); 

7406 ; 4636 IF .COMMAND EQL READ 

7407 ; 4637 THEN 

7408 ; 4638 

7409 ;: 4639 PTR = .RPTR; 

7410 ; 4640 VALUE = READ(.LUN,.WRDCNT, .RPTR,.SECTOR); 

7411 ; 4641 END 

7412 ;: 4642 

7413 ; 4643 GIN 

7414 ; 4644 PTR = .WPTR; 

7415 ; 4645 VALUE = CHECK(.LUN,.WRDCNT,.WPTR, SECTOR); 

7416 ; 4646 END; 

7417 ; 4647 '¢ 

7418 ; 4648 ' SEE HOW SUCCESSFUL THE OPERATION WAS: 

7419 ; 4649 ie 

7420 ; 4650 SELECTONE .VALUE OF 'SEE *SYSERR' FOR DEFINITION 

7421 ; 4651 SET 'OF ERROR # CONTAINED IN ‘VALUE' 
7422 ; 4652 (0) : 

7423 ; 4653 IF .COMMAND EQL READ 

7424 ; 4654 THEN 

7425 ; 4655 BEGIN 

7426 ; 4656 IF (DBL_VALUE = DOUBLE_CHECK(.WPTR,.RPTR,.WRDCNT)) NEQ 0 
7427 ; 4657 THEN 

7428 ; 4658 BEGIN 

7429 ; 4659 SAYWHO( LUN); 

7430 ; 4660 PRINTB(SAY1, MSG5); 

7431 ; 4661 ''ECC LOGIC FAILED TO DETECT DATA ERROR' 
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rege ; DEFINITION OF OPTION 2 23-0ct-1980 14:57:05 PA:<ROSENDMLX4.BLI.1 (41) 
| 7436 ; 4662 PRINTB(FMT12A,..DBL VALUE, .DBL_VALUE); 

7437 ; 4663 Bh oer DATA: XXXRXX AT LOCATION vvyvvy' 

7438 ; 4664 ALUE = .DBL_VALUE + OF SIZ 2; 

7439 ; 4665 PRIRTRCTAT 28. BBL V VALUE, .DBL_VALUE); 

7440 ; 4666 '*BAD DATA agus AT (LOCATION 0a0000' 

7441 ; 4667 WHY DROPTC. LUN] = ODE _8; 

7442 ; 4668 ERRBF (204, MSGI Fe '#eee OPTION 2 ERROR 04 eee 

7643 ; 4669 DODU(.LUN); 

7444 ; 4670 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

7645 ;: 4671 END; 

7446 ; 4672 : END; 

7447 ; 4673 (1) : 

7448 ; 4674 BEGIN !* 6D * RETRY ALLOWED 

7449 ; 4675 IF RETRY(SIX,.COMMAND, .LUN,.WRDCNT,.PTR,.SECTOR) NEQ 0 

7450 ; 4676 THEN '!THE RETRY FAILED -= SYSTEM FATAL ERROR 

7451 ; 4677 BEGIN 

7452 ; 4678 WHY DROPTC.LUN] = CODE_4; 

7453 ; 4679 ERRBF (205, MSGI, 0); !#ee2 OPTION 2 ERROR 05 *ee« 

7454 ; 4680 DODU(.LUN); 

7455 ; 4681 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

7456 ; 4682 END; 

7457 ; 4683 END; !* 6D * 

7458 ;: 4684 [2] : 

7459 ; 4685 BEGIN !* 6E€ * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 

7460 ; 4686 WHY DROPTL. LUNJ = CODE_5; 

7461 ; 4687 ERRDP (206, MSGI ,0); !ee OPTION 2 ERROR 06 *##* 

7462 ; 4688 DODU(.LUN 

7463 ; 4689 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

7464 ; 4690 END; '* 6E * 

7465 ; 4691 (3) : 

7466 ; 4692 BEGIN !* 6F * FATAL DRIVE ERROR -- NO RETRY ALLOWED 

7467 ; 4693 ERRDF (207,MSG1,0 'eeee OPTION 2 ERROR 07 *eee 

7468 : 4694 WHY DROPTC. ods * CODE _6: 

7469 ; 4695 poD0(.LUN); 

7470 : 4696 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

7471 ;: 4697 END; ‘!* 6F * 

7472 ; 4698 (4) : 

7473 ; 4699 BEGIN ‘ 66 * UNRECOVERABLE DATA ERROR 

7474 ; 4700 ISOLA 

7475 ; 4701 teebe (08° *mSG2,0 i OPTION 2 ERROR 08 *#** 

7476 : 4702 WHY DROPTC. ad's 

7477 ; 4703 pop0(.LUN) ; 

7478 ; 4704 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 4 * 

7479 ;: 4705 END; '!* 6G * 

7480 ; 4706 [5]: 

7481 ; 4707 BEGIN ‘!* 6H * RECOVERABLE DATA ERROR 

7482 ;: 4708 ISOLATE(); 

7483 ; 4709 IF .ERROUT 

7484 ; 4710 THEN PRINTB(FMT10B,.CHAN); 

7485 ; 4711 it BIT QQ’ 

7486 ; 4712 OLDSEC = .MLEL; 

7487 ; 4713 OLDCHN = .CHAN; 


r 
| 
| 
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/ 7492 ; 4714 IF RETRY(ONE,.COMMAND,.LUN,.WRDCNT,.PTR,.SECTOR) EQL 5 

7493 ; 4715 THEN 

7494 : 4716 IF ((.MLEL EQL .OLDSEC) AND (.CHAN EQL .OLDCHN)) 

7495 : 4717 THEN 

7496 ; 4718 BEGIN 

7497 ;: 4719 IF .ERROUT 

7498 : 4720 THEN 

7499 : 4721 ERRHRD(209,MSG4,0); !**e* OPTION 2 ERROR 09 eee 

7500 ; 4722 UP_HARD_COUNT(.LUN, .BOARD) ; 

7501 ; 4723 ENB 

7502 : 4724 ELSE 

7503 ; 4725 BEGIN 

7504 ; 4726 IF .ERROUT 

7505 ; 4727 THEN 

7506 ; 4728 ERRSOFT(210,MSG3,0); !**** OPTION 2 ERROR 10 eee 

7507 ; 4729 UP_SOFT_COUNT(.LUN, .BOARD) ; 

7508 ;: 4730 ENB 

7509 ; 4731 ELSE 

7510 ; 4732 BEGIN 

7511 ; 4733 IF .ERROUT 

7512 : 4734 THEN 

7513 : 4735 ERRSOFT(211,MSG3,0); !**** OPTION 2 ERROR 11 «eee 

7514 ; 4736 UP_SOFT_COUNT(.LUN. .BOARD); 

7515 : 4737 ENB; 

7516 ; 4738 END; !* 6H * 

7517 : 4739 

7518 ; 4740 TES; 

7519 : 4741 

7520 ; 4742 WPTR = .WPTR + (.WRDCNT * 

7521 : 4743 SECTOR = .SECTOR + mecnt 356: 

7522 ; 4744 

7523 : 4745 END; '* 6 * END OF SECTOR SELECTION LOOP 

7524 ; 4746 END; '* § * END OF Test pf or AN ACTIVE UNIT 

7525 : 4747 END; '* 4 * END OF TESTLOO 

7526 ; 4748 END; '* 3 * END OF LOGICAL ONIT SELECTION LOOP 


po ree 


SEQ 0193 


r 
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| 7531 : 4749 IF QUICK EQL 0 

7532 ; 4750 TH 

7533 ; 4751 BEGIN ‘!* 11 * START OF LOOP READING SECTION 

7534 ; 4752 

7535 : 4753 \e4 

536 ;: 4754 ' THIS IS THE "LOOP READ® SECTION WHICH WAS MENTIONED IN 

7537 : 4755 i THE DOCUMENTATION AT THE BEGINNING OF THIS ROUTINE. IT 

7538 ; 4756 ' IS NOT EXECUTED DURING THE QUICK VERIFY PASS, BUT IT IS 

7539 ; 4757 ' FOR EVERY OTHER PASS THROUGH OPT2. 

7540 : 4758 i : 

7541 : 4759 i THE CODE IN BRIEF: 

7542 : 4760 i 

7543 ; 4761 ! BEGIN 11 ps De OF LOOP READING SECTION) 

7546 : 4762 i INCR LUN FROM 0 TO LAST 

7545 ; 4763 ' +: BEGIN 12 (START OF * OGICAL UNIT SELECTION LOOP) 

7546 ; 4764 . % TEST LOOP2: 

7547 ; 4765 ' : : BEGIN 13 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

7548 : 4766 i: : IF UNIT IS ACTIVE 

7549 : 4767 i HEN 

7550 ; 4768 ' : : : BEGIN 14 (START OF TEST FOR AN ACTIVE UNIT) 

7551 ; 4769 ! : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 

7552 : 4770 i : : SECTOR = LOWEST 

7553 : 4771 were: WHILE SECTOR LEQ HIGHEST DO 

7554 ; 4772 ' : : : : BEGIN ay (START OF SECTOR SELECTION LOOP) 

7555 : 4773 i : + : GET_WRDCNT 

7556 ; 4774 ! : : : SETUP BUFFER POINTERS BEFORE TRANSFER 

7557 ; 4775 ' : : : : CHOOSE WHETHER TO WRITE CHECK OR READ 

7558 ; “4776 -° @y-,! : : : : INCR KOUNT FROM 1 TO TIMES 

7559 3 4777 "-: : : : : BEGIN = (START o ytd ye LOOP FOR LOOP READING) 

7560 : 4778 i: : 2 2 DO THE WRITE CHECK OR READ 

7561 ; 4779 * s¢ 32 ¢ & LOO 1 ERRORS (IF Sau UNIT, LEAVE TESTLOOP2) 

7562 ; 4780 ' : : 2: : : END 16 (END OF COUNTING LOOP FOR LOOP READING) 

7563 : 4781 i: : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

7564 ; 4782 ! : : UPDATE SECTOR NUMBER BY # SECTORS f PREVIOUS TRANSFER 

7565 ; 4783 ' : : : : END 15 (END OF SECTOR SELECTION LOOP) 

7566 ; 4784 :. es : iw 14 (END OF TEST FOR AN ACTIVE UNIT) 

7567 ; 4785 . £2 END 13 (END OF TESTLOOP2) 

7568 : 4786 i : END 12 (END OF LOGICAL UNIT SELECTION LOOP) 

7569 ; 4787 ' END 11 (END OF LOOP READING SECTION) 

7570 : 4788 inn 

7571 : 4789 

7572 ;: 4790 INCR LUN FROM 0 TO (.LSUNIT - 1) DO 

7573 ; 4791 BEGIN ‘# 12 * START OF LOGICAL UNIT SELECTION LOOP 

757% : 4792 LOOP2: 

7575 ;: 4793 BEGIN ‘* 13 * START GF THE 2ND LOOP THAT COMPLETELY TESTS 1 UNIT 

7576 ;: 4794 IF -DRIVE_ STATUSC.LUN] EQL ACTIVE 

7577 : 4795 THEN 

7578 ; 4796 BEGIN ‘'* 14 * START OF LOOP THAT TESTS AN ACTIVE UNIT 

7579 ; 4797 LSLUN = .LUN; 

7580 ; 4798 WPTR = ix 

7581 ; 4799 RPTR = RBUFF; 

7582 ;: 4800 SECTOR = LOWEST: 
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DEFINITION OF OPTION 2 
WHILE 3 aa pag LEQ HIGHEST DO 
BEGIN 15 * 


23-0ct- 15:01: 


-1980 4 
23-0ct-1 we 14:57:0 PA: <ROSEN>MLX4.BLI.1 


START OF SECTOR SELECTION LOOP 
WRDCNT = “GET URDENTC. SECTOR ,HIGHEST) ; 


SET _PTRS(.WRBCNT); 
COMMAND = CHOOSE () 


INCR KOUNT FROM 1 io TIMES TO_LOOP DO 
BEGIN '!* 16 * START OF COUNTING LOOP FOR LOOP READING 


IF .COMMAND EQL READ 
THEN 


BEGIN 
PTR = .RP 


2 READC. LUN, .WRDCNT,.RPTR,.SECTOR); 
N 


LSE 
BEGIN 
PTR = .WPT 


END; 


R; 
VALUE = CHECK(.LUN,.WRDCNT,.WPTR,.SECTOR); | 


14 
i. SEE HOW SUCCESSFUL THE OPERATION WAS: 


SELECTONE .VALUE OF 
SET 


0) : 
IF . COMMAND EQL READ 
THEN 


'SEE ‘SYSERR' FOR DEFINITION : 
‘OF ERROR # CONTAINED IN ‘VALUE* 


BEGIN 
sec = DOUBLE_CHECK(.WPTR,.RPTR,.WRDCNT)) NEQ 0 
HEN 


BEGIN 
SAYWHOC.L 
a? PRINT SAY, ASG G5); 
"ECC L 


OGIC FAILED TO DETECT DATA ERROR" 
ag VALUE, .DBL 


LUE = .DBL_V 


VALUE); 
XXXRXX AT *TOCATION yyvyyy" 


VALUE + BUFSIZ * 2; 


DBL 
PRIRTRCFRT 128, . .BBL VALUE, .DBL_VALUE); 


'*BAD DAT 

WHY DROPTL. is : 
ERRDF (212, SGI Os 
DODU(.LUN) 

LEAVE "toop3: 


END; r 


ve 4 LOCATION QQQaaa' 
+ OPTION 2 ERROR 12 *ee* 
‘JUMP JUST BEYOND END OF BLOCK * 4 * 


1): 
BEGIN ‘'* 16A * RETRY ALLOWED 
IF RETRY(SIX,.COMMAND,.LUN,.WRDCNT,.PTR,.SECTOR) NEQ 0 


THEN !THE RETRY FAILED 


BEGIN 
WHY DROPTC.LUN] = CODE 
ERRDF (213,4SG1,0); 


=~ SYSTEM FATAL ERROR 


E_4; 
'Zeee OPTION 2 ERROR 13 teee 


; TOPS=20 Bliss-16 V2(206) 


(42) 


SEQ 0195 


ec _ —— 
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7640 ;MLXG . § -0ct-1980 15:01:43 TOPS-20 Bliss-16 bere 

rol ; DEFINITION OF OPTION 2 “0ct-1980 14:57:05  PA:<ROSENPMLNS.BLI.1 (42) 
| ren: rt th PEAVE'E bopa: UMP JUST BEYOND END OF BLOCK « 13 

P VE L ‘J J * e SS 

7645: 4855 END; UE Os 
7666 : 4856 END; “!* 16A © 3 
| 7667: 4857 [2] : i ED 

7648 : 4858 BEGIN !¢ 168 © FATAL CONTROLLER ERROR == NO RETRY ALLOWED , 

7649 : 4859 DROPTC.LUN] = CODE_5; 

7650 ; 4860 ERRBF (214 i 0); 'Zeee OPTION 2 ERROR 14 eee 

7651 : 4861 DODUC.L 

7652 : 4862 LEAVE Toore; ‘JUMP JUST BEYOND END OF BLOCK « 13 « 

7653 : 4863 END; * 

7654 : 4864 (3) : 

7655 : 4865 BEGIN ‘'* 16C « of Ata DRIVE ERROR <= NO RETRY ALLOWED 

7656 : 4866 ERRDF (275,561 ‘eeee OPTON 2 ERROR 15 tees 

7657 : 4867 wHy propTt. a - "CODE. 

7658 : 4868 pop0(. LUN) 

7659 : 4869 LEAVE LOOP?: ‘JUMP JUST BEYOND END OF BLOCK « 13 « 

7660 ; 4870 END; 'e 16C *« 

7661 : 4871 [4] : 

7662 ; 4872 BEGIN is 16D © UNRECOVERABLE DATA ERROR 

7663 : 4873 ISOLATE 

7664 ; 4874 ERRDF (216, MSG2 0: Bg OPTION 2 ERROR 16 eee 

7665 : 4875 WHY _D ROPT t. LUN) =" CODE_?; 

7666 ; 4876 poDOt 

7667 : 4877 LEAVE “Tors: ‘JUMP JUST BEYOND END OF BLOCK * 13 * 

7668 ; 4878 END; 14D « 

7669 : 4879 [5] : 

7670 : 4880 BEGIN '* 16€ * RECOVERABLE DATA ERROR 

7671 ; 4881 ISOLATE (); 

7072 : 4882 IF .ERROUT 

7673 : 4883 THEN PRINTB(FMT 1B. ; CHAN) ; 

767% : 4884 BIT 

7675 : 4885 OLDSEC = AMLEL 

7676 : 4886 OLDCHN = .CHAN 

7677 : 4887 IF RETRY(ONE,.COMMAND,.LUN,.WRDCNT,.PTR,.SECTOR) EQL 5 

7678 : 4888 THEN 

7679 : 4889 LF ((.MLEL EQL .OLDSEC) AND (.CHAN EQL .OLDCHN)) 

7680 : 4890 THEN 

7681 : 4891 BEGIN 

7682 ; 4892 If -ERROUT 

7683 : 4893 THEN 

7684 ; 4894 ERRHRD(217,MSG4,0); '**** OPTION 2 ERROR 17 eee 

7685 ; 4895 UP_HARD_COUNT(.LUN. .BOARD) ; 

7686 ; 4896 END 

7687 : 4897 ELSE 

7688 : 4898 BEGIN 

7689 : 4899 IF .ERROUT 

7690 ; 4900 THEN 

7691 : 4901 ERRSOFT(218,MSG3,0); !*#** OPTION 2 ERROR 18 eeee 

7692 : 4902 UP_SOFT_COUNT(.LUN, .BOARD) ; 

7693 : 4903 END 

76% : 4904 ELSE 
j 
J 
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OPT! DEFINITION OF OPTI SEQ 0197 
7696 ;MLK4 23-0 t-1980 15:01:43 TOPS-20 BLiss-16 v2(206) 
add 5 DEFINITION OF OPTION 2 23-0¢t-1980 14:57:05 PA:<ROSENDMLX4.BLI.1 (42) 
| 7699 ; 4905 BEGIN 

7700 ; 4906 IF .ERROUT 

7701 ; 4907 THEN 

7702 ; 4908 ERRSOFT(219,MSG3,0); !#ee* OPTION 2 ERROR 19 eevee 

7703 : 4909 UP_SOFT_COUNT(.LUN, .BOARD); 

7704 : 4910 END; 

7705 ; 4911 END; ‘!* 16£ * 

7706 ; 4912 

7707 ; 4913 TES; 

7708 ; 4914 

7709 ; 4915 END; ‘'* 16% END | oF COUNTING LOOP FOR LOOP READING 

7710 ; 4916 WPTR = .WPTR + (.WRDCNT © 2) 

7711 : 4917 SECTOR = .SECTOR + (.WRDCNT/256); 

7712 : 4918 END; ‘* 15 * END OF SECTOR SELECTION LOOP 

7713 ;: 4919 END; '* 146 @ END OF TEST FOR AN ACTIVE UNIT 

7714: 4920 END; ‘'* 13 * END OF TESTLOOP2 

7715 : 4921 END; '* 12 * END OF LOGICAL UNIT SELECTION LOOP 

7716 : 4922 END; '* 11 * END OF LOOP READING SECTION 

7717 ; 4923 END; '* 2 * END OF PATTERN SELECTION LOOP 

7718 ;: 4924 RETURN: 

719 : 4925 END; ‘'* 1 * END OF ROUTINE 

7724 .SBTTL OPT2 DEFINITION OF OPTION 2 

7728 050232 004137 005222 OPT2: JSR R1,$SAVE5 : 4508 

7729 050236 162706 00002 SUB 

7730 050242 012746 007256 MOV #RTN2,-(SP) 4562 

7731 050246 012746 006766 MOV #WRD34 ,~ (SP) 

7732 050252 012746 006522 MOV @SAY2,-(SP) 

7733 050256 012746 MOV #3,-(SP) 

7734 050262 010600 MOV SP RO : SP, 

7735 050264 104414 TRAP =—s-_ ‘16 

7736 050266 005037 030714 CLR PATTERN ; 4565 

7737 050272 005737 030712 TST QUICK ; 4567 

7738 050276 001403 BEQ 1$ 
50300 012705 000001 MOV #1,R5 > *,MAXPAT 568 

7740 050304 000402 BR 23 ; 4567 
50306 012705 000012 1$ MOV > *,MAXPAT 4569 

7742 050312 010566 000032 2$ MOV RS, 32(SP) : MAXPAT,®* 4571 

7743 050316 006366 000032 ASL 32(SP) 

7744 050322 005066 000030 CLR 30(SP) : COUNT 

7745 050326 000137 053532 JMP 628 

7746 050332 004737 036156 3$: JSR PC,SELPAT ; 4573 

7747 050336 005737 030714 TST PATTERN ; 4574 

7748 050342 003413 BLE 4$ 

7749 050344 013746 030714 MOV PATTERN, -(SP) ; 4576 

7750 050350 012746 007522 MOV #PHRO, -(SP) 

! 
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OPT2 DEFINITION OF OPTION 2 SEQ 0198 
775 SMLXG 23-Oct-1980 15:01:43 TOPS 
he}, ; DEFINITION OF OPTION 2 23-Oct-1980 14:57:05 PA:< 
7755 050354 012746 005550 MOV #FMTIA,<(SP) 

7756 050360 012746 000003 MOV #3,-(SP) 
7757 050364 010600 MOV SP,RO : SP,* 
050 104414 TRAP = -'14 
7759 050370 000417 BR S$ : 657% 
050372 013766 030714 000034 4$: MOV PATTERN, 34(SP) + ©, TEMP 4580 
50400 005466 000034 NEG 34 (SP) > TEMP 
7762 050404 016646 000034 MOV 34 (SP) ,-(SP) > TEMP,* 4581 
7763 050410 012746 007522 MOV #PHRO, -(SP) 
7764 050414 012746 005564 MOV #FMT1B,-(SP) 
7765 050420 012746 000003 MOV #3,-(SP) 
7766 050424 010600 MOV SP,RO > SP,* 
7767 050426 104414 TRAP ‘14 
7768 050430 013716 030714 5$: MOV PATTERN, (SP) ; 4584 
7769 050434 004737 036522 JSR PC ,GEN2 
7770 050440 013766 002012 000030 MOV LSUNIT, 30(SP) : 4585 
7771 050446 005005 CLR RS > LUN 
7772 050450 000137 052136 JMP 33$ 
7773 050454 010500 6$: MOV R5,RO : LUN,* 4589 
7774 050456 006200 ASR RO 
7775 050460 006200 ASR RO 
7776 050462 006200 ASR RO 
7777 050464 062700 032460 ADD #ORIVE STATUS, RO 
7778 050470 010046 MOV RO.- (SP) 
7779 050472 010546 MOV : LUN,* 
7780 050474 042716 177770 BIC R47 HS0 (SP) 
7781 050500 012746 000001 MOV #1,-(SP) 
7782 050504 005046 CLR -(§P) 
7783 050506 004737 004244 JSR PC ,BL$GT2 
7/84 050512 062706 000010 ADD #16,SP 
7785 050516 005300 DEC RO 
7786 050520 001127 BNE 11$ 
7787 050522 010537 002074 MOV RS, LSLUN > LUN,* 4592 
7788 050526 012737 010706 030706 MOV #UBUFF ,WPTR : 4593 
7789 050534 012737 020706 030710 MOV #RBUFF .RPTR : 4594 
7790 050542 010501 MOV R5,R1 > LUN,* 4595 
7791 050544 006301 ASL R} 
7792 050546 016104 032476 MOV LOW. SECT(R1) ,R4 > *, SECTOR 
7793 050552 020461 032516 7$: CMP R4, TOP. SECT(R1) > SECTOR,* 4596 
7794 050556 003110 BGT 11$ 
7795 050560 010446 MOV R4,-(SP) : SECTOR,* 4598 
7796 050562 016146 032516 MOV TOP. SECT(R1),-(SP) 
7 050566 94737 044034 JSR PC,GET.WROCNT 
7798 050572 010002 MOV RO.R2 : *,WRDCNT 
7799 050574 010216 MOV R2, (SP) : WRDCNT,* 4599 
7800 050576 004737 043770 JSR PC.SET.PTRS 
7801 050602 010516 MOV RS. (SP) : LUN,* 4601 
7802 050604 010246 MOV R2.-(SP) > WRDCNT,* 
7803 050606 013746 030706 MOV WPTR, -(SP) 
7804 050612 010446 MOV R4,-(SP) : SECTOR,* 
7805 050614 004737 042246 JSR PC WRITE 


4 
7806 050620 010003 MOV RO,R3 ; *, VALUE 
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tap DEFINITION OF OPTION 


010066 


fon —— 
Sor 


CSoooooooo 
SS 


ae 
oro 


EE Se TO, et ee 


000001 
000006 
042246 
030706 
043046 
000014 


000004 


000002 
000005 


000003 


000006 


000012 
043010 


000034 
030710 


030710 


032464 


032464 


032464 


000040 


sMLX4 


8$: 


9$: 


at ad ond 
moO 
PAM 


DEFINITION OF OPTION 2 


R3,#1 
8$ 


#12,SP 
15$ 

PC, CHOOSE 
RO, 36(SP) 
34 (SP) 

RO, #READ 
13$ 

34 (SP) 


RPTR,40(SP) 


R5,-(SP) 
R2,-(SP) 


RPTR,-(SP) 


R4,-(SP) 


#6 ,WHY .DROPT(R5) 
R5,RO 


VALUE ,* 


LUN,* 
WROCNT,* 


SECTOR,* 
*,*(LUN) 


LUN,* 


VALUE ,* 
*,*(LUN) 


LUN,* 


VALUE ,* 


*,*(LUN) 
L 


* , COMMAND 
COMMAND , * 


*,PTR 
LUN,* 
WROCNT,* 
SECTOR,* 


23-Oct-19 
23-0ct-19 


oo 


SEQ 0199 


243 TOPS 
5 


PA:< 
4605 
4609 


4612 
4613 


4614 


4615 
4605 


4620 
4621 


4622 


4623 
4605 


4627 


4628 
4629 


4630 
4635 
4636 


4639 
4640 


F 16 
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OPT2 DEFINITION OF OPTION 2 SEQ 0200 
| 7864 sMLXG 23-0ct-1980 15:01:43 TOPS 
| hse : DEFINITION OF OPTION 2 23-0¢t-1980 14:57:05 PA:< 
—- 7867 051050 004737 042434 JSR PC ,READ 
7868 051054 000412 BR 14$ 
7869 051056 013766 030706 000040 13s: MOV WPTR,4O(SP) : *,PTR 4644 
7870 951064 010546 MOV RS, -(SP) ; LUN,* 4645 
7871 051066 010246 MOV R2,-(SP) ; WROCNT,* 
7872 051070 613746 030706 MOV WPTR,=(SP) 
7873 051074 010446 MOV R4,-(SP) : SECTOR,* 
7874 051076 004737 042622 JSR PC, CHECK 
7875 051102 010003 14$: MOV RO,R3 3 *, VALUE 
7876 051104 001076 BNE 168 ; 4650 
7877 051106 032766 000001 000044 BIT #1,44(SP) ; 4653 
7878 051114 001513 BEQ 17$ 
7879 051116 013746 030706 MOV WPTR,-(SP) ; 4656 
7880 051122 013746 030710 MOV RPTR,-(SP) 
7881 051126 010246 MOV R2,-(SP) ; WRDCNT,* 
7882 051130 004737 041226 JSR PC ,DOUBLE . CHECK 
7883 051134 062706 000006 ADD #6,SP 
7884 051140 010066 000054 MOV RO,54(SP) : *,Db&L.VALUE 
7885 051144 001477 BEQ 17$ 
7886 051146 010546 MOV R5,-(SP) > LUN,* c 4659 
7887 051150 737 033436 JSR PC, SAYWHO . 
7888 051154 012716 010640 MOV #MSG5, (SP) ; 4660 
7889 051160 012746 006514 MOV #SAY1,-(SP) 
7890 051164 012746 000002 MOV #2,-(SP) 
7891 051170 MOV SP,RO : SP,* 
7892 051172 104414 TRAP 14 
7893 051174 016616 000062 MOV 62(SP), (SP) : DBL.VALUE,* 4662 
7894 051200 017646 000062 MOV @62(SP),-(SP) : DBL.VALUE,* 
7895 051204 012746 006332 MOV #FMT12A,-(SP) 
7896 051210 012746 000003 MOV #3,-(SP) 
7897 051214 010600 MOV SP ,RO : SP,* 
7898 051216 104414 TRAP 1 
7899 051220 66 010000 000070 ADD #10000, 70(SP) : *,DBL.VALUE 4664 
7900 051226 016616 000070 MOV 70(SP), (SP) > DBL.VALUE,* 4665 
7901 051232 017646 000070 MOV a70tSPS, -(SP) : DBL.VALUE,* 
7902 051236 012746 006400 MOV #FMT12B.-(SP) 
7903 051242 012746 000003 MOV #3,-(SP) 
7904 051246 010600 MOV SP,RO > SP, 
7905 051250 104414 TRAP 14 
7906 051252 112765 000010 032464 MOVB #10,WHY.DROPT(RS) : *,*(LUN) 4667 
7907 051260 104455 TRAP 55 ; 4668 
7908 051262 000314 ~WORD 314 
7909 051264 010512 .WORD MSG1 
7910 051266 000000 .WORD 0 
7911 051270 010500 MOV R5,RO ; LUN,* 4669 
7912 051272 104451 TRAP 51 
7913 051274 062706 000044 ADD #44,SP ; 4670 
7914 051300 000510 15$: BR 3$ 
7915 051302 020327 000001 16$: CMP RS, rh : VALUE,* 4650 
7916 051306 001033 BNE 19$ 
7917 051310 012746 000006 MOV #6,-(SP) ; 4675 
7918 051314 016646 000050 MOV 50(SP), - (SP) > COMMAND, * 


MLK 
OPT 


MACRO M1113 [oy lee 09:59 


7931 
7932 051352 
7933 360 


MAA 


Warn 
ENSNS RR 


X4 
2 DEFINITION OF OPTION 
7 


000060 


043046 
000014 


052072 
000004 


000002 
000005 


000003 


000006 


000004 
035212 


000007 


000022 
052134 
000005 


035212 


032464 


032464 


032464 


032404 
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sMLX4 


17$: 
18$: 
19$: 


20$: 


21$: 


223: 
238: 
24%: 


DEFINITION OF OPTION 2 


R5,-(SP) 
R2,-(SP) 
60(SP), — 


asin 
PC, ISOLATE 
55 


320 

MSG2 
#22,SP 

328 

R3,85 

31 

PC, ISOLATE 


#6 ,WHY .DROPT(RS) 
R5,RO 


0 
#7 ,WHY .DROPT(RS5) 
R5,RO 


Se te Be Be 


LUN,* 
WRDCNT, « 


PTR 
SECTOR, * 


*,* (LUN) 


LUN,* 


VALUE , * 
*,*(LUN) 


; LUN,* 


VALUE ,* 


*,* (LUN) 


LUN,* 


VALUE ,* 


*,*(LUN) 
LUN,* 


VALUE ,* 


2 
é 


SEQ 0201 


-0ct-1980 15:01:43 TOPS 
-0ct-1980 14:57:05 PA:< 


4678 
4679 


4680 


4681 
4650 


4686 
4687 


4688 


4689 
4650 


4693 


4694 
4695 


4696 
4650 


4700 
4701 


4702 
4703 


4704 
4650 
4703 
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OPT? DEFINITION OF OPTION 2 


7976 MLXG 
7977 : 


7978 
7979 051540 tS 4e U4 000001 002260 
7981 051550 017700 160652 


1 ; 
7988 051570 042700 177700 
7990 051576 012746 006262 
ao] os lene 012746 000002 


7994 051612 062706 000006 
7995 051616 017766 160606 000060 25$: 
7996 051624 017700 160576 


2 
3 051644 ep thes 177700 
8006 051660 016646 000050 


009 051670 016646 000060 

8011 051676 004737 043046 

8012 051702 062706 000014 

8013 051706 020027 000005 

8015 051714 027766 160510 000060 
001034 


801 
8017 051724 016646 000056 
8018 gait ee 017700 160472 


8024 051 006 
8025 051750 042700 177700 


001016 

032737 000001 002260 
8029 051766 

8030 051770 104456 


DEFINITION OF OPTION 2 


#1 ,ERROUT 


#177700, RO 
RO,- 


arATIOB. -(SP) 


#2,-(SP) 
S 6 0 
14 


#6,SP 
OML .REG+44 ,60(SP) 
@ML .REG+42,R0 


#177700,R0 
fi 56(SP) 
1,-(SP) 
S0(3P), -(SP) 
R5,-(SP) 


R2,-(SP) 
60(SP) ,-(SP) 


56(SP) ,-(SP) 


R 
#177700,R0 
RO, (SP)+ 
7$ 


2 

#1, ERROUT 
26$ 

56 


oo 


“ »REG+42,R0 


2 
@ML .REG+44 ,60(SP) 
27% 


oA -RESots OF 


SEQ 0202 


4712 
4713 


4714 


4716 


4719 
472) 
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‘OPT2 DEFINITION OF OPTION 2 SEQ 0203 
8032 sMLX4G 23-0ct-1980 15:01:43 TOPS 
| Shar ; DEFINITION OF OPTION 2 23-0ct-1980 14:57:05 PA:< 
| = 8035 051772 000321 .WORD 321 

8036 051774 010624 .WORD MSG4 

8037 051776 000000 .WORD 0 

8038 052000 010546 26$: MOV R5,-(SP) ; LUN,* 4722 

8039 052002 013746 032360 MOV BOARD ,-(SP) 

8040 052006 004737 035302 JSR PC,UP. HARD. COUNT 

8041 052012 000426 BR ; 4716 

8042 052014 032737 000001 002260 27%: BIT #1, ERROUT : 4726 

8043 052022 001415 BEQ 29% 

8044 052024 10445 TRAP =‘ 557 ; 4728 

8045 052026 000322 WORD 322 

8046 052030 010610 WORD MSG3 

8047 052032 00 WORD 

2034 000410 BR 29$ ; 4729 
2036 032737 000001 002260 28$: BIT #1,ERROUT : 4733 

8050 052044 001404 BEQ 29$ 

8051 052046 104457 TRAP 57 ; 4735 

8052 052050 000323 «WORD 323 

8053 052052 010610 .WORD MSG3 

8054 052054 000000 .WORD 0 

8055 052056 010546 29$: MOV R5,-(SP) : LUN,* 4736 

6056 052060 013746 032360 MOV BOARD ,-(SP) 

8057 052064 004737 035430 JSR PC,UP. SOFT. COUNT 

8058 052070 022626 30$: CMP (SP) +, (SP)+ : 4707 

8059 052072 010200 31$: MOV R2,RO : WRDCNT,* 4742 

8060 052074 006300 ASL RO 

8061 052076 063700 030706 ADD WPTR,RO 

8062 052102 010037 030706 MOV RO,WPTR 

8063 052106 010216 MOV R2, (SP) ; WRDCNT,* 4743 

8064 052110 012746 000400 MOV #400,-(SP) 

8065 052114 004737 005056 JSR PC,BLSDIV 

8066 052120 060400 ADD R4,RO : SECTOR,* 

8067 052122 010004 MOV RO,R4 > *,SECTOR 

8068 052124 062706 000024 ADD #24,SP : 4597 

8069 052130 000137 050552 JMP 7$ : 4596 

8070 052134 005205 32$: INC R5 > LUN 4585 

8071 052136 020566 000030 33$: CMP RS, 30(SP) : LUN,* 

8072 052142 002002 BGE 34$ 

8073 052144 000137 050454 JMP 6$ 

8074 052150 005737 030712 34$: TST QUICK : 4749 

8075 052154 001402 BEQ 35$ 

8076 052156 000137 053526 JMP 61$ 

8077 052162 013766 002012 000030 358: MOV LSUNIT, 30(SP) : 4790 

8078 052170 005005 CLR R5 > LUN 

8079 052172 000137 053514 JMP 608 

8080 052176 010500 36$: MOV R5,RO ; LUN,* 4794 

8081 052200 006200 ASR RO 

8082 052202 006200 ASR RO 

8083 052204 006200 ASR RO 

8084 052206 062700 032460 ADD #ORIVE .STATUS,RO 

8085 052212 010046 MOV RO,-(SP) 

8086 052214 010546 MOV R5,-(SP) > LUN,* 


_ — 
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OPT2 DEFINITION OF OPTION 2 


88 3MLX4 
8089 : 


177770 
000001 


004244 
000010 


wren 


002074 
010706 
020706 


030706 
030710 


Uns & & 


032476 
032516 


aN 


37$: 


032516 
044034 


043770 


Wrens 


000026 
38$: 
042434 


oP rte! cep pepe + + Pee eg 


000030 


000024 


030710 000032 


030710 
042434 
030706 


000032 39$: 


OO NOUS WN CO ODNOUSWN—O 


030706 


042622 
40$: 


000034 


wn 
=] 
Ww 
™ 
o 
o 


000001 


030706 
030710 


041226 
000006 
000046 


™wm 

= 

oa 

% 
Soooooo 
— ~ ~~ 


od 0d OD Cd 09 On 09 On Od Od OD Od Od Od Od Od OD Od Od CO CD On Or OD OO UO C9 CD OD OD CD On CO 
ee ce ee a ee ee ee et ee ed ed ed ad od nd ed 
oa 
™ 
on 
o 
oa 


Noo 


DEFINITION OF OPTION 2 
#177770, (SP) 
#1,-(SP) 


-(§P) 
PC,BLSGT2 
#i0,SP 

RO 

41$ 
R5,LS$LUN 
#WBUFF ,WPTR 
#RBUFF RPTR 


R1 

LOW.SECT(R1) RG 
R4, TOP. SECT(R1) 
41$ 

R4,-(SP) 

TOP. SECT(R1) ,-(SP) 
PC, GET .WRDCNT 
RO,R2 


oR 
R2, (SP) 
PC,SET.PTRS 


24(SP 
30(SP) ,#READ 
39% 


24 (SP) 
~ Agel t= Sate 


42$ 

#1, 34(SP) 

43$ 

WPTR,-(SP) 
RPTR.-(SP) 
R2,-(SP) 

PC DOUBLE . CHECK 
RO, 46(SP) 

43$ 


LUN,* 


LUN,* 


*, SECTOR 
SECTOR,* 


SECTOR,* 


* ,WRDCNT 
WRDCNT,* 


* , COMMAND 
* ,KOUNT 
COMMAND , * 
*,PTR 
LUN,* 
WRDCNT,* 
SECTOR,* 


*,PTR 
LUN,* 
WRDCNT,* 
SECTOR,* 
* , VALUE 


WROCNT,* 


* ,DBL.VALUE 


23-Oct-19 
23-0ct-19 


oo 


SEQ 0204 
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obts DEFINITION OF OPTION 2 SEQ 0205 
 -B144 SMLXG 23-Oct-1980 15:01:43 TOPS 
| Bee ; DEFINITION OF OPTION 2 23-0ct-1980 14:57:05 PA:< 
/ 8147 052500 010546 MOV RS,-(SP) : LUN,* 4832 

8148 052502 004737 033436 JSR PC. SAYWHO 

8149 052506 012716 010640 MOV #MSGS, (SP) : 4833 

8150 052512 012746 006514 MOV #SAY1.-(SP) 

8151 052516 012746 000002 MOV #2,-(SP) 

8152 052522 010600 MOV SP,RO : SP,* 

8153 052524 104414 TRAP ‘14 

8154 052526 016616 000054 MOV 54(SP),(SP) ; DBL.VALUE,* 4835 

8155 052532 017646 000054 MOV a54(SP),-(SP) > DBL.VALUE,* 

8156 052536 012746 006332 MOV #FMT12A,-(SP) 

8157 052542 012746 000003 MOV #3,-(SP) 

8158 052546 010600 MOV SP,RO : SP, 

8159 052550 104414 TRAP = -‘14 

8160 052552 062766 010000 000062 ADD #10000 ,62(SP) : *,DBL.VALUE 4837 

8161 052560 016616 000062 MOV 62(SP), (SP) ; DBL.VALUE,* 4838 

8162 052564 017646 000062 MOV @62(SP),-(SP) > DBL.VALUE,* 

8163 052570 012746 006400 MOV #FMT12B,-(SP) 

8164 052574 012746 000003 MOV #3,-(SP) 

8165 052600 010600 MOV SP,RO : SP,* 

8166 052602 104414 TRAP -14 

8167 0526046 112765 000010 032464 MOVB #10, WHY.DROPT(RS) : *,*(LUN) 4840 

8168 052612 104455 TRAP = 555 : 4841 

8169 052614 000324 .WORD 324 

8170 052616 010512 “WORD MSG1 

8171 052620 000000 “WORD 0 

8172 052622 010500 MOV R5,RO : LUN,* 4842 

8173 052624 104451 TRAP 51 

8174 052626 062706 000036 ADD #36,SP ; 4843 

8175 052632 000510 41$: BR 49$ 

8176 052634 020327 000001 42$: CMP R3,#1 > VALUE,* 4823 

8177 052640 001033 BNE 45$ 

8178 052642 012746 000006 MOV #6,-(SP) : 4848 

8179 052646 016646 000042 MOV 42(SP),-(SP) > COMMAND, * 

8180 052652 010546 MOV R5,-(SP) : LUN,* 

8181 052654 010246 MOV R2.-(SP) > WRDCNT,* 

8182 052656 016646 000052 MOV 52(SP) ,-(SP) : PTR, * 

8183 052662 010446 MOV 7 (SP) > SECTOR,* 

8184 052664 004737 043046 JSR PC.RETRY 

8185 052670 062706 000014 ADD wid,sp 

8186 052674 005700 TST RO 

8187 052676 001002 43$: BNE 44$ 

8188 052700 000137 053424 JMP 57$ 

8189 052704 112765 000004 032464 44$:  #MOVB #4,WHY.DROPT(RS) > *,* (LUN) 4851 

8190 052712 104455 TRAP 55 : 4852 

8191 052714 000325 .WORD 325 

8192 052716 010512 “WORD SG1 

8193 052720 000000 WORD 0 

8194 052722 010500 MOV R5,RO > LUN,* 4853 

8195 052724 104451 TRAP ae 

8196 052726 000450 BR ; 4854 

8197 052730 020327 000002 45$: CMP aS #2 > VALUE,* 4823 

8198 052734 001012 BNE 46$ 
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MLXG 
‘OPT2 DEFINITION OF OPTION 2 


| 8200 
| 8201 


8202 
8203 052736 


oo 
NMrMrnwrr 

oO 

~ 


fo Je Je] 
mr 
VU SSaNanRwnwsoSe 


~ 
NNN 2 2 
PUPP TTT TU 


¥YONVs arose 
MOAOLNMOLOONOGLSNVOSHN 


Qui kes 


000005 


000003 


000006 


000004 
035212 


000007 


000014 
053512 
000005 


035212 
000001 


157320 


177700 


006262 
000002 


000006 
157254 
157244 


sMLX4 


032464 


468: 


032464 


47$: 


032464 


48$: 
50$: 


002260 


000052 51$: 


DEFINITION OF OPTION 2 


MOVB #5,WHY .DROPT(RS) 3 *,*(LUN) 
TRAP 55 3 

-WORD 326 

-WORD MSGI 

-WORD 0 

MOV R5,R0 ; LUN,* 
TRAP 51 

BR 48% ; 

CMP R3,43 3; VALUE ,* 
BNE 47$ 

TRAP 55 s 

-WORD 327 

-WORD MSG1 

~ WORD 0 

MOVB #6, WHY .DROPT (RS) 3; *,*(LUN) 
MOV R5,RO ; LUN,* 
TRAP —s 1 

BR 48$ s 

CMP R3,44 3; VALUE,* 
BNE 50$ 

JSR PC, ISOLAIE ; 

TRAP 55 : 

-WORD 330 

-WORD MSG2 

-WORD O 

MOVB #7, WHY .DROPT(RS) 3 *,*(LUN) 
MOV R5,R0 ; LUN,* 
TRAP 51 

ADD #14,SP : 

JMP 59$ 

CMP R3,45 ; VALUE,* 
BNE 57$ 

JSR PC, ISOLATE i 

BIT #1, ERROUT ; 

BEQ 51$ 

MOV QM. .REG+42,R0 3 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

BIC #177700,R0 

MOV RO,-(SP) 

MOV #FRT10B,-(SP) 

MOV #2,-(SP) 

MOV SP,RO 3; SP,* 
TRAP 14 

ADD #6,SP 

MOV QML .REG+44 ,52(SP) 3 *, OLDSEC 
MOV QML .REG*42,R0 : 

ASR RO 


23-0ct-19 
23-Oct-19 


01 
01 


§:01:4 
4:57:0 


SEQ 0206 


3 
5 


TOPS 
PA:< 


4859 
4860 


4885 
4886 


peincn —_——_—— = - ae 
os Mm 16 
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'OPT2 DEFINITION OF OPTION 2 SEQ 0207 
| 8256 MLX4 23-Oct-1980 15:01:43 TOPS 
| Ss2t : DEFINITION OF OPTION 2 23-Oct-1980 14:57:05 PA:< 
8259 053164 006200 ASR RO 
8260 053166 200 ASR RO 
8261 053170 200 ASR RO 
8262 053172 200 ASR RO 
8263 053174 006200 ASR RO 
8264 053176 042700 177700 BIC #177700,R0 
8265 053202 010066 000050 MOV RO, 50(SP) > *,OLDCHN 
266 053206 012746 000001 MOV #1.=(SP) : 4887 
8267 053212 016646 000042 MOV 42(SP) ,-(SP) > COMMAND, * 
268 053216 010546 MOV R5,-(SP) > LUN,* 
8269 053220 010246 MOV R2,-(SP) + WRDCNT,* 
8270 053222 016646 000052 MOV 52(SP) ,-(SP) : PTR,* 
271 053226 010446 MOV R4,-(SP) ; SECTOR,* 
8272 053230 004737 043046 JSR PC.RETRY 
8273 053234 062706 000014 ADD #i4,SP 
8274 053240 020027 000005 CMP RO, #5 
8275 053244 001051 BNE 54 
8276 053246 027766 157156 000052 CMP AML .REG+44,52(SP) : *,OLDSEC 4889 
8277 053254 001034 BNE 53$ 
8278 053256 016646 000050 MOV 50(SP),-(SP) : OLDCHN,* 
8279 053262 017700 157140 MOV AML .REG+42,R0 
8280 053266 006200 ASR RO 
8281 053270 006200 ASR RO 
8282 053272 006200 ASR RO 
8283 053274 00620 ASR RO 
8284 053276 006200 ASR RO 
8285 053300 006200 ASR RO 
8286 053302 042700 177700 BIC #177700,R0 
8287 053306 020026 CMP RO, (SP)+ 
8288 053310 001016 BNE 53$ 
8289 053312 032737 000001 002260 BIT #1, ERROUT : 4892 
8290 053320 001404 BEQ 52$ 
8291 053322 104456 TRAP 56 : 4894 
8292 053324 000331 .WORD 331 
8293 053326 010624 “WORD © MSG4 
8294 053330 000000 “wORD 0 
8295 053332 010546 52$: MOV RS,-(SP) > LUN,* 4895 
8296 053334 013746 032360 MOV BOARD, -(SP) 
8297 053340 004737 035302 JSR PC,UP HARD. COUNT 
8298 053344 000426 BR 56 : 4889 
299 053346 032737 000001 002260 53$: BIT #1, ERROUT : 4899 
8300 053354 001415 BEQ 55$ 
8301 053356 104457 TRAP ‘457 : 4901 
53360 000332 WORD 332 
8303 053362 010610 . WORD MSG3 
053364 000000 "WORD 0 
8305 053366 000410 BR 55$ : | 4902 
8306 053370 032737 000001 002260 54$: BIT #1, ERROUT : 4906 
8307 053376 001404 BEQ 55$ 
8308 053400 104457 TRAP ‘457 : 4908 
8309 053402 000333 WORD 333 
8310 053404 010610 WORD M5SG3 


| 
| 
| 
| 
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FSRNSNSS 


4 


~ 


000207 


032360 
035430 


000010 
000026 
000026 
052342 
030706 
030706 
000400 
005056 
000006 
052274 
000030 


052176 


0 
000030 


050332 
000036 


000002 


000032 


sMLX4 


; DEFINITION OF OPTION 2 
.WORD 0 
55$ MOV RS, -(SP) 
MOV BOARD, -(S 
JSR PC,UP. SOFT. COUNT 
56$: CMP (SP)+.(SP)+ 
57$: ADD #10,SP 
INC 26(§P) 
CMP 26(SP) ,#2 
BGT 58$ 
JMP 38$ 
58$: MOV R2,RO 
ASL RO 
ADD WPTR,RO 
MOV RO,WPTR 
MOV R2. (SP) 
MOV #480,-(SP) 
JSR PC,BLSDIV 
ADD R4 RO 
MOV RO.R4 
ADD #6,SP 
JMP 37$ 
59$: INC RS 
60$: CMP R5, 30(SP) 
BGE 61$ 
JMP 36$ 
61$: ADD #10,SP 
62$: INC 30(SP) 
CMP 30(SP),32(SP) 
BGT 63$ 
JMP 33 
63$: ADD #36,SP 
RTS PC 


; Routine Size: 875 words. 
: Maximum stack depth per invocation: 43 words 


SEQ 0208 
23-0ct-1980 15:01:43 TOPS 
23-0ct-1980 14:57:05 PA:< 

LUN,* 4909 
4880 
4808 
KOUNT 4807 
KOUNT,* 
WRDCNT,* 4916 
WRDCNT,* 4917 
SECTOR,* 
* SECTOR 
4802 
4801 
LUN 4790 
LUN,* 
4572 
COUNT 4571 
COUNT,* 
4508 
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8357 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
tts ; DEFINITION OF OPTION 3 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (43) 
] 
8360 ; 4926 <XSBITL ‘DEFINITION OF OPTION 3° 
8361 ; 4927 
8362 ; 4928 ROUTINE OPT3: NOVALUE = 
8363 ; 4929 BEGIN !* 1 * START OF ROUTINE 
8364 ; 4930 
8365 ; 4931! +4 
8366 ; 4932 ! ROUTINE: OPT3 
8367 ; 4933! 
Bice ; rp os PURPOSE : TO DO A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS. 
8370 ; 4936 ! THE CODE FOR ‘OPT3" IN BRIEF: 
8371 ; 4937 |! 
8372 ; 4938 ‘'‘ BEGIN 1 (START OF ROUTINE) 
8373 ; 4939 ! SAY ROUTINE IS RUNNING 
8374 ; 4940 |! INCR COMPLEMENT FLAG FROM 0 TO 1 
8375 ; 4941 ! : BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 
8376 : 4942 ! : GENERATE THE a 
8377 : 4943! : INCR LUN FROM 0 TOL 
8378 ; 4944 ! : : BEGIN 3 (START OF LAS GICAL UNIT SELECTION LOOP) 
8379 ; 4945 ! : : TESTLOOP: 
8380 ; 4946 ! : : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
8381 ; 4947 =! : : IF UNIT IS ACTIVE 
8382 ; 4948 =! : : THEN 
8383 ; 4949 =! : : + BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
8384 ; 4950 ! : : + INITIALIZE THE WRITE AND READ BUFFER POINTERS 
8385 ; 4951 =! : : SECTOR = LOWEST 
8386 ; 4952 =! : : WHILE SECTOR LEQ HIGHEST DO 
8387 ; 4953 !' :: : : : BEGIN . i OF SECTOR SELECTION LOOP) 
8388 ; 6954 $ £228 ¢ GET. 
8589 ; 4955 ' :: : : : SETUP BUFFER POINTERS BEFORE TRANSFER 
8390 ; 4956 ! :: : 3: : WRI 
8391 ; 4957 ! : : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
8392 ; 4958 ! : : : : : CHOOSE WHETHER TO WRITE CHECK OR READ 
8393 ; 4959 ! :: : : : DO THE WRITE CHECK OR READ 
8394 ; 4960 ! :: : : : LOOK FOR ERRORS (IF DROP UNIT, Sees TESTLOOP) 
8395 ; 4961 ! : : : : : CHANGE BUFFER POINTERS AFTER TRA NSFER 
8396 ; 4962 ! :: : : : UPDATE SECTOR NUMBER BY NUMBER OF — IN PREVIOUS TRANSFER 
8397 ;: 4963 !' :: : : : END 6 (END OF SECTOR SELECTION LOOP) 
8398 ;: 4964 ! END 5 (END OF TEST FOR AN ACTIVE UNIT) 
8399 ; 4965 =! END 4 (END OF TESTLOOP) 
8400 ; 4966 =! ; > END 3 (END OF LOGICAL UNIT SELECTION LOOP) 
8401 ; 4967 ! END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 
8402 ; 4968 =! RETURN 
8403 ; 4969 |! END 1 (END OF ROUTINE) 
8404 ; 4970 !-- 
8405 ; 4971 
8406 ;: 4972 LABEL 
8407 ; 4973 LOOP; 
8408 ; 4974 
8409 ; 4975 LOCAL 
8410 ; 4976 WRDCNT, VALUE, OLDSEC, OLDCHN, SECTOR, PTR, COMMAND, DBL_VALUE; 
8411 ; 4977 
| 


SEQ 0209 


—— 


| oe 
MLXG MACRO M1113 24-OCT-80 09:59 PAGE 255 


\OPT2 DEFINITION OF OPTION 2 


| 8413 ;MLX4 
B414 ; 23-0ct-1980 15:01:43 TOPS- iss- 
hf DEFINITION OF OPTION 3 23-0ct-1980 14:57:05 cassette s iet tae) 
8416 ; 4978 PRINTB(SAY2, URD34 RTN3); 
8418 : 1980 "RUNNING OPTS! 
8419 : 4981 INCR COMP_FLAG FROM 0 TO 1 
; DO 
aege ; re BEGIN sine" pck Mig ART OF COMPLEMENT FLAG SELECTION LOOP 
3 ; ee INCR LUN FRON 0 TO (.L$UNIT - 1) DO 
ees 024 eesin ‘® 3 * START OF LOGICAL UNIT SELECTION LOOP 
B425 : 4987 BEGIN !* 4 * 
' START OF THE LOOP TH 
Bese ; rhe dF DRIVE _STATUSL.LUNJ EQL ACTIVE wt ti Stowe! itil Pam 
4 ° 
74 ; “390 BEGIN '* 5 * START OF TEST FOR AN ACTIVE UNIT 
Boe? .? L$LUN = .LUN; 
oe ped: WPTR = WBUFF; 
ete) 4995 RPTR = RBUFF; 
os riee: SECTOR = LOWEST; 
re eee iae meee GM 
; fF SECTOR SELECT 
tH ; pal URDCNT = GET WROCNT(. SECTOR, WIGHEST)¢ rae a 
Bree 3 phe SET_PTRS(.WRBCNT 
Bean oe VALUE = WRITE(. oh. uncut. .WPTR, SECTOR); 
a7 2001 | SEE HOW SUCCESSFUL THE WRITE WAS: 
B441 : SE 
ant 3093 SELECTONE .VALUE OF 'SEE_"SYSERR' FOR DEFINITION 
Bits epee ; 'OF ERQOR # CONTAINED IN 'VALUE' 
Bes; Mr PeAtonr (sta amare, Ne orotate ser, 
ta od .SECT 
Bits ; 2008 THEN 'THE RETRY FAILED -- SYSTEM FATAL ERROR. = 
448 ; 5010 ROPTL. 
; LUN] = CODE_4; 
8430 ; ah ERRB (301 ASG ys '%eee OPTION 3 ERROR 01 eee 
4 5 
ees gol? LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
8453 ; 5015 END; te 6A * 
B18 crn 
; BEGIN !* 6B * FATA -- 
8434 S018 ty A L CONTROLLER ERROR NO RETRY ALLOWED 
eet sth ERRDF (302,MSG1,0); Geeks OPTION 3 ERROR 02 *exe 
eeee 5 DODU(.LUN) ; 
HE 20e) LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
8461 : 5023 3i°0? tee 
: 5024 BEGIN '!* 6C * FATA 
L DRIV -- 
ot ; 068 ERRDF(303,MSG1,0); eee opt ion FE RROR A gh bone serene 
B4b4 3026 WHY DROPTC.LUNS = CODE_6; 
ie 2067 pODO(.LUN); 
gees 20¢8 LEAVE LOOP: : ‘JUMP JUST BEYOND END OF BLOCK * 4 * 


SEQ 0210 


r . — —— 
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‘OPT2 DEFINITION OF OPTION 2 


| 
| 8469 = MLK4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 v2(206) 
| ry ; DEFINITION OF OPTION 3 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (43) 
8472 ; 5030 
8473 ; 5031 TES; 
8474 ; 5032 
8475 ; 5033 COMMAND = CHOOSE ( 
B476 : 5034 IF .COMMAND EQL ReaD 
8477 ; 5035 THEN 
8478 ; 5036 BEGIN 
8479 ; 5037 PTR = RPTR: 
8480 ; 5038 VALUE = READ(.LUN, .WRDCNT, .RPTR,.SECTOR); 
8481 ; 5039 END 
8482 ; 5040 ELSE 
8483 ; 5041 SEGIN 
B484 ; 5042 PTR = 
8485 ; 5043 VALUE = WEHEEK(. LUN, .WRDCNT,.WPTR,.SECTOR); 
8486 ; 5044 END; 
8487 : 5045 14 
8488 ; 5046 ' SEE HOW SUCCESSFUL THE OPERATION WAS: 
8489 ; 5047 le 
8490 ; 5048 SELECTONE .VALUE OF (SEE "SYSERR' FOR DEFINITION 
8491 ;: 5049 SET 'OF ERROR # CONTAINED IN ‘VALUE' 
8492 ; 5050 0): 
8493 ;: 5051 IF .COMMAND EQL READ 
8494 ;: 5052 THEN 
8495 ;: 5053 BEGIN 
8496 ;: 5054 IF (DBL_VALUE = DOUBLE_CHECK(.WPTR,.RPTR,.WRDCNT)) NEQ 0 
8497 : 5055 THEN 
8498 ; 5056 BEGIN 
8499 ;: 5057 SAYWHO(.LUN); 
8500 ; 5058 PRINTB(SAY1, MSGS); 
8501 ; 5059 '"ECC LOGIC FAILED TO DETECT Ba ERROR’ 
8502 ; 5060 PRINTB(FATI 2A. . -DBL_VALUE, .DBL_VALUE); 
8503 ; 5061 G00 DATA: XXXRXX AT "LOCATION vYYYYY" 
8504 ; 5062 DBL_VALUE = .DBL_VALUE + BUF SIZ 
8505 ; 5063 PRIRTBCFRTI2B, BBL_VALUE,.0B ALUE) : 
8506 ; 5064 '"BAD DATA agssed AT (DeATION aodaac’ 
8507 ; 5065 WHY DROPTL. LUNI = CODE_8; 
8508 ; 5066 ERRBF (304,MSG1,0); Feeie OPTION 3 ERROR 04 *ee* 
8509 ; 5067 DODU(.LUN); 
8510 ; 5068 LEAVE \.00P; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
8511; 5069 END; 
8512 ; 5070 END; 
8513 ; 5071 : 
8514 ; 5072 BEGIN !* 6D * RETRY ALLOWED 
8515 ; 5073 IF RETRY(SIX,.COMMAND,.LUN,.WRDCNT,.PTR,.SECTOR) NEQ 0 
8516 ; 5074 THEN '!THE RETRY FAILED -- SYSTEM FATAL ERROR 
8517 ;: 5075 BEGIN 
8518 : 5076 WHY_DROPTC.LUN] = E_4; 
8519 ; 5077 PRRDS (305, MSGI, sen” Teck OPTION 3 ERROR 05 **e* 
8520 ; 5078 popu(. LUND ; 
8521; 5079 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 4 * 
8522 ; 5080 END; 
8523 ; 5081 END; !* 6D * 


SEQ 0211 
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“OPT2 DEFINITION OF OPTION 2 SEQ 0212 
| 8525 :MLX4 23-Oct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
8526 : DEFINITION OF OPTION 3 23-0ct-1980 14:57:05  PA:<ROSEN>MLX4.BLI.1 (43) 
8528 ;: 5082 Led 
8529 ; 5083 BEGIN !* 6€ * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
8530 : 5084 WHY _DROPTL. LUN] 5 ODE _5; 
8531 ; 5085 ERRDF (306.4 M0: 'eeee OPTION 3 ERROR 06 *ex* 
8532 ; 5086 DODU(.LUN) ; 
8533 : 5087 LEAVE LOOP; JUMP JUST BEYOND END OF BLOCK * 4 * 
8534 ; 5088 END; !* 6€ * 
8535 ; 5089 [3] : 
8536 : 5090 BEGIN !* 6F * FATAL DRIVE ERROR -= NO RETRY ALLOWED 
8537 : 5091 ERRDF (307,MSG1,0 leeet OPTION 3 ERROR 07 exe 
8538 ; 5092 WHY _DROPTC. tuNS = * CODE_6; 
8539 : 5093 DODO(.LUN) ; 
8540 : 5094 LEAVE LOOP; JUMP JUST BEYOND END OF BLOCK * 4 * 
8541 ; 5995 END; ie 6F * 
8542 : 5096 [4] : 
8543 : 5097 BEGIN > 66 * UNRECOVERABLE DATA ERROR 
8544 : 5098 ISOLATE ( 
8545 : 5099 ERRDF (308° "mS62,0 re OPTION 3 ERROR 08 *#e« 
8546 ; 5100 WHY_DROPTL. tUNS = 7; 
8547 ; 5101 DODO(.LUN): 
8548 : 5102 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 4 * 
8549 : 5103 END; !* 66 * 
8550 : 5104 5] : 
8551 : 5105 BEGIN !* 6H * RECOVERABLE DATA ERROR 
8552 ;: 5106 ISOLATE(); 
8553 : 5107 IF .ERROUT 
8554 : 5108 THEN PRINTB(FMT10B, CHAN) ; 
8555 : 5109 BIT 
8556 : 5110 OLDSEC = =MLEL 
8557 : 5111 OLDCHN = 
8558 : 5112 IF RETRYCONE. Ye OMMAND, .LUN, .WRDCNT,.PTR,.SECTOR) EQL 5 
8559 : 5113 THEN 
8560 : 5114 IF ((.MLEL EQL .OLDSEC) AND (.CHAN EQL .OLDCHN)) 
8561 : 5115 THEN 
8562 : 5116 BEGIN 
8563 : 5117 IF .ERROUT 
8564 ; 5118 THEN 
8565 : 5119 ERRHRD(309,MSG4,0); !***® OPTION 3 ERROR 09 eee 
8566 ; 5120 UP_HARD_COUNT(.LUN, .BOARD) ; 
8567 : 5121 EN 
8568 : 5122 ELSE 
8569 ; 5123 BEGIN 
8570 : 5124 IF .ERROUT 
8571 : 5125 THEN 
8572 : 5126 ERRSOFT(31C,MSG3,0); !*#*® OPTION 3 ERROR 10 ee 
8573 : 5127 UP_SOFT_COUNT(.LUN, .BOARD) ; 
8574 : 5128 END 
8575 : 5129 ELSE 
8576 : 5130 BEGIN 
8577 : 5131 IF .ERROUT 
8578 : $132 THEN 
8579 : 5133 ERRSOFT(311,MSG3,0); !**** OPTION 3 ERROR 11 #08 
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DEFINITION OF OPTION 3 


END; '* 3 


END; 
RETURN; 
END; 


005222 
0 


000003 


000026 


000012 


032460 


000014 
177770 
000001 


004244 
000010 


END; 


END; 
“te 2 


‘ee | 


000014 


UP_SOFT_COUNT(.LUN, .BOARD) ; 


END; 
TES; 


"le 6H * 


WPTR = .WPTR + (.WRDCNT * 2); 


SECTOR = .SECTOR + (.WRDCNT/256); 
END OF SECTOR SELECTION LOOP 


END; 
;.. 3° 

'e & & 
* 


END OF 


OPT3: 


2$: 


'* 6 * 


5 * END OF TEST FOR AN ACTIVE UNIT 


END OF T 


ROUTINE 


ESTLOOP 


#RINS,-(SP) 
#WRD34,-(SP) 
#SAY2,-(SP) 
#3,-(SP) 

SP, 

14 

26(SP) 
oa 


PC,GEN 
LSUNIT,14(SP) 
12(SP) 


29$ 
12(SP),RC 
RO 


RO 


RO 
#DRIVE.STATUS,RO 


RO,-(SP) 
14(SP) ,-(SP) 
#177770, (SP) 
#1,-(SP) 
-(§P) 

PC ,BLSGT2 
#10,SP 


16,5 
RO 
7$ 


END OF LOGICAL UNIT SELECTION LOOP 
* END OF COMPLEMENT FLAG SELECTION LOOP 


-SBTTL OPT3 DEFINITION OF OPTION 3 
JSR R1,$SAVE5 


743 TOPS=-20 Bliss-16 V2(206) 
5 PA:<ROSEN>MLX4.BLI.1 


. SP,* 


; COMP.FLAG 
; COMP.FLAG,* 


; LUN 
; LUN,* 


; LUN,* 


(43) 


SEQ 0213 


4928 
4978 


4981 
4983 


4984 


4988 


MLX4 


OPT3 DEFINITION OF OPTION 3 


| 
| 
| 
| 


8637 
8638 


8639 
8640 053720 


000012 
032476 
032516 


032516 
044034 


043770 
000016 
030706 
042246 
000001 
000006 
042246 
000030 
030706 
043046 
000014 


000024 
000004 
000024 
000002 


000024 
000005 


000024 


032464 


032464 
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3$: 


4$: 


DEFINITION OF OPTION 3 


12(SP) ,L$LUN 
#WBUFF ,WPTR 
#RBUFF ,RPTR 
ae 


LOW.SECT(R1) ,R4 
on eee 


$ 

R4,-(SP) 
TOP.SECT(R1) ,-(SP) 
PC,GET.WROCNT 
RO,R3 

R3,(SP) 
PC,SET.PTRS 

16 (SP), (SP) 


#6 ,-(SP) 
#WRITE,-CSP) 
30(SP) ,-(SP) 
R3,-(SP) 
np ey 


8$ 
24(SP) ,R2 
+ agua tie 


24(SP) ,RO 
51 

6$ 
R5,#2 
5$ 

24(SP),R2 

Th aaa abc 


456 
MSG1 


0 
24(SP),RO 
51 

6$ 


LUN,* 


LUN,* 


*, SECTOR 
SECTOR,* 


SECTOR,*« 
* ,WRDCNT 
WRDCNT,* 


LUN,* 
WRDCNT,* 


SECTOR,* 


3; *, VALUE 
; VALUE,* 


LUN,* 
WROCNT,* 


; SECTOR,* 


; LUN,* 


LUN,* 


VALUE ,* 
LUN,* 


LUN,* 


23-0c t-198 
23-0c¢%-198 


01 
0 14: 


uw 


SEQ 0214 


TOPS 
PA:< 


4991 
4992 
4993 
499% 
4995 


4997 


4998 
4999 


5003 
5007 


5010 
5011 


5012 


5013 
5003 


5618 
5019 


5020 
502% 
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OFT DEFINITION OF OPTION 3 SEQ 0215 
8693 sMLX4 23-0ct-1980 15:01:43 TOPS 
ste) : DEFINITION OF OPTION 3 23-0ct-1980 14:57:05 PA:< 
8696 054166 020527 000003 S$: CMP R5,#3 : VALUE, * 5003 
8697 054172 001016 BNE 8$ 
8698 054174 104455 TRAP = 55 : 5025 
8699 054176 000457 WORD 457 
8700 054200 010512 WORD MSG1 
8701 054202 000000 “WORD 0 
8702 054204 016602 000024 MOV 24 (SP) ,R2 : LUN,* 5026 
8703 054210 112762 000006 032464 MOVB #6,WHY.DROPT(R2) 

8704 054216 010200 MOV R2,RO > LUN,* 5027 
8705 054220 104451 TRAP ss 51 

8706 054222 062706 000012 6$: ADD #12,SP : 5028 
8707 054226 000543 7$: BR 13$ 

8708 054230 004737 043010 8$: JSR PC, CHOOSE : 5033 
8709 054234 010066 000036 MOV RO, 36(SP) : *, COMMAND 

8710 054240 005002 CLR R2 : 5034 
8711 054242 020027 042434 CMP RO, #READ ; COMMAND,* 

8712 054246 001015 BNE 9$ 

8713 054250 005202 INC R2 

8714 054252 013766 030710 000034 MOV RPTR, 34(SP) : *,PTR 5037 
8715 054260 016646 000024 MOV 24(SP) ,-(SP) > LUN, * 5038 
8716 054264 010346 MOV R3,-(SP) + WRDCNT,* 

8717 054266 013746 030710 MOV RPTR,-(SP) 

8718 054272 010446 MOV R4,-(SP) : SECTOR,* 

8719 054274 004737 042434 JSR PC,READ 

8720 054300 000413 BR 10$ 

8721 054302 013766 030706 000034 9S: MOV WPTR, 34(SP) : *,PTR 5042 
8722 054310 016646 000024 MOV 24(SP),-(SP) : LUN,* 5043 
8723 054314 010346 MOV R3,-(SP) : WRDCNT,* 

8724 054316 013746 030706 MOV WPTR,-(SP) 

8725 054322 010446 MOV R4,-(SP) : SECTOR,* 

8726 054324 004737 042622 JSR PC. CHECK 

8727 054330 010005 10$: MOV RO.RS : *, VALUE 

8728 054332 001102 BNE 14% : 5048 
8729 054334 006002 ROR R2 ? : 5051 
8730 054336 103402 BLO 12 

8731 054340 000137 055360 11$:  JMP & 

8732 054344 013746 030706 12$: MOV WPTR,-(SP) : 5054 
8733 054350 013746 030710 MOV RPTR. age? 

8734 054354 010346 MOV R3,-( > WRDCNT,* 

8735 054356 004737 041226 JSR PC, DOUBLE. CHECK 

8736 054362 062706 000006 ADD 

8737 054366 010066 000050 MOV +3 SOCSP) > *,DBL.VALUE 

8728 054372 001762 BEQ 11$ 

8739 054374 016646 000034 MOV 34(SP) ,-(SP) > LUN,* 5057 
8740 054400 004737 033436 JSR PC, SAYWHO 

8741 054404 012716 010640 MOV #MSG5, (SP) : 5058 
8742 054410 012746 006514 MOV #SAY1.-(SP) 

8743 054414 012746 000002 MOV #2,-(SP) 

8744 054420 010600 MOV SP RO : SP,* 

8745 054422 104414 TRAP ‘14 

8746 054424 016616 000056 MOV 56(SP), (SP) ; DBL.VALUE,* 5060 
8747 054430 017646 000056 MOV a56(SP),-(SP) ; DBL.VALUE,* 


MLX4 
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— 


8801 054666 
8802 054670 
8803 054674 


= KO 


104451 


006332 
000003 


010000 
64 


000003 


000056 
000010 


000056 
000044 
000001 
000006 
000050 
000040 
000054 
043046 
000014 


000034 
000004 
000034 
000002 


000034 
000005 


000034 


000064 


032464 


032464 


032464 
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7MLX4 


15$: 


DEFINITION OF OPTION 3 
#FMT12A,-(SP) 
3,-(SP) 


#10000 ,64 (SP) 
64(SP), (SP) 
064 (SP) ,=(SP) 
#FMT12B,-(SP) 
#3, PRO 


56(S R2 
io, unY DROPT(R2) 


460 
MSG1 


0 

56(SP) ,RO 

51 

#44,SP 

19$ 

R5,#1 

15$ 

#6,-(SP) 
50(SP),-(SP) 
40(SP) ,-(SP) 


R3,-(SP) 
ogee taal 


Stet RO 
18$ 
+P #2 
166 
ae R2 
$2. UH. “DROPT(R2) 


462 
MSG1 


0 
34(SP) ,RO 
51 


SP,* 


; *,DBL.VALUE 


DBL.VALUE,* 
DBL.VALUE,* 


SP,« 


LUN,* 


LUN,* 


/ALUE,* 


COMMAND , * 


SECTOR, * 


LUN,* 


LUN,* 


VALUE ,* 


; LUN,* 


LUN,* 


SEQ 0216 


TOPS 
PA:< 


5062 
5063 


5065 
5066 


5067 
5068 
5048 
5073 


5076 
5077 


5078 


5079 
5048 


5084 
5085 


5086 
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‘OPT3 DEFINITION OF OPTION 3 SEQ 0217 

| 

8805 MLX4 23-0ct-1980 15:01:43 TOPS 
Sene : DEFINITION OF OPTION 3 23-0ct-1980 14:57:05 PA:< 
8808 054676 000437 BR 18$ ; 5087 
8809 054700 020527 000003 16$: CMP R5 #3 + VALUE,* 5048 
8810 054704 001014 BNE 17$ 
8811 054706 104455 TRAP = 55 ; 5091 
8812 054710 000463 .WORD 463 
8813 954712 010512 WORD MSG 
8814 054714 000000 “WORD 
8815 054716 016602 000034 MOV 34 (SP) ,R2 : LUN,* 5092 
8816 054722 112762 000006 032464 MOVB  #6,WHY.DROPT(R2) 
8817 054730 010200 MOV R2,RO : LUN,* 5093 | 
8818 054732 104451 TRAP 51 
8819 054734 000420 BR 18$ : 5094 
8820 054736 020527 000004 17$: CMP RS, #4 > VALUE, * 5048 
8821 054742 001021 BNE 20$ 
8822 054744 004737 035212 JSR PC, ISOLATE : 5098 
8823 054750 104455 TRAP 3s : 5099 
8824 054752 000464 WORD 464 

| 8825 054754 010542 WORD MSG2 | 
8826 054756 000000 “WORD 0 
8827 054760 016602 000034 MOV 34(SP),R2 : LUN,* 5100 
8828 054764 112762 000007 032464 MOVB #7, WHY.DROPT(R2) 
8829 054772 019200 MOV R2,RO : LUN,* 5101 
8830 054774 104451 TRAP ‘51 
8831 054776 062706 000022 18$: ADD #22,SP : 5102 
8832 055002 000137 055422 19$:  JMP 28% 
8833 055006 020527 000005 20$: CMP RS #5 : VALUE,* 5048 | 
8834 055012 001162 BNE 27$ 
8835 055014 004737 035212 JSR PC, ISOLATE : 5106 | 
8836 055020 032737 000001 002260 BIT #1. ERROUT : 5107 — 
8837 055026 001423 BEQ 21$ 
8838 055030 017702 155372 MOV AML .REG+42,R2 : : 5108 
8839 055034 006202 ASR R2 
8840 055036 006202 ASR R2 
8841 055040 006202 ASR R2 
8842 055042 006202 ASR R2 

3 055044 006202 ASR R2 

8844 055046 006202 ASR R2 
8845 055050 042702 177700 BIC #177700,R2 
8846 055054 010246 MOV R2,-(SP 
8847 055056 012746 006262 MOV #FMT10B,-(SP) 
8848 055062 012746 000002 MOV #2,-(SP) 
8849 055066 010600 MOV SP,RO : SP,* 
8850 055070 104414 TRAP =-_:‘14 
8851 055072 062706 000006 ADD #6,SP 
8852 055076 017766 155326 000040 21%: MOV AML .REG#+44,40(SP) : *, OLDSEC 5110 
8853 055104 017702 155316 MOV AML .REG+42,R2 ; $111 
8854 055110 006202 ASR R2 
8855 055112 006202 ASR R2 
8856 055114 202 ASR R2 
8857 055116 006202 ASR R2 
8858 055120 006202 ASR R2 
8859 055122 006202 ASR R2 


[or 


MLXG Ma.70 M1113 24-OCT-80 09:59 PAGE 263 
(OPTS DEFINI. ION OF OPTION 3 SEQ 0218 
| B61 sMLX4 23-Oct-1980 15:61:43 TOPS 
eects ; DEFINITION OF OPTION 3 23-Oct-1980 14:57:05 PA:< 
| 8864 055124 042702 177700 BIC #177700..R2 

8865 055130 010266 000042 MOV R2,42(SP) : *,OLDCHN 

8866 055134 012746 000001 MOV #1,-(SP) : 5112 

B867 055140 016646 000050 MOV 50(SP) ,-(SP) : COMMAND, * 

8868 055144 016646 000040 MOV 40(SP) ,=(SP) ; LUN,* 

8869 055150 010346 MOV R3,-(SP) ; WRDCNT,* 

8870 055152 016646 000054 MOV 54(SP),-(SP) : PTR,* 

8871 055156 010446 MOV R4,-(SP) : SECTOR,* 

8872 055160 004737 043046 JSR PC RETRY 

8873 055164 062706 000014 ADD #14,SP 

8874 055170 020027 000005 CMP RO, #5 

8875 055174 001052 BNE 24$ 

8876 055176 027766 155226 000040 CMP QML .REG+44 ,40(SP) : *,OLDSEC 5114 

8877 055204 001035 BNE 23$ 

8878 055206 016600 000042 MOV 42(SP),RO : OLDCHN,* 

8879 055212 017702 155210 MOV QML .REG+42,R2 

8880 055216 006202 ASR R2 

8881 055220 006202 ASR R2 

222 006202 ASR R2 
8883 055224 006202 ASR R2 
226 006202 ASR R2 

8885 055230 006202 ASR R2 

8886 055232 042702 177700 BIC #177700,R2 

8887 055236 020200 CMP R2,RO 

8888 055240 001017 BNE 238 

8889 055242 032737 000001 002260 BIT #1, ERROUT : 5117 

8890 055250 001404 BEQ 228 

8891 055252 104456 TRAP 56 : 5119 

8892 055254 000465 .WORD 465 

8893 055256 010624 .WORD MSG4 

8894 055260 000000 .WORD 0 

8895 055262 016646 000034 22$: MOV 34(SP),-(SP) : LUN,* 5120 

8896 055266 013746 032360 MOV BOARD ,-(SP) 

8897 055272 004737 035302 JSR PC,UP.HARD. COUNT 

8898 055276 000427 BR 26$ ; 5114 

8899 055300 032737 000001 002260 23$: BIT #1, ERROUT ; 5124 

8900 055306 001415 BEQ 25$ 

8901 055310 104457 TRAP 57 : 5126 

8902 055312 000466 .WORD 466 

8903 055314 010610 .WORD MSG3 

8904 055316 000 . WORD 

8905 055320 000410 BR 25% ; $127 

8906 055322 032737 000001 002260 24$: BIT #1, ERROUT : 5131 

8907 055330 001404 BEQ 25$ 

8908 055332 104457 TRAP 57 : 5133 

8 055334 000467 «WORD 467 

8910 055336 010610 -WORD MSG3 

8911 055340 000000 .WORD 0 

8912 055342 016646 000034 258: MOV 34(SP),-(SP) : LUN,* 5134 

8913 055346 013746 032360 MOV BOARD ,-(SP) 

8914 055352 004737 035430 JSR PC,UP.SOFT.COUNT : 

8915 055356 022626 268: CMP (SP)+,(SP)+ : 5105 
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8917 
8918 
8919 
8920 055360 
8921 055362 
8922 055364 
8923 055370 


8937 055450 
8938 055456 
8939 055460 
8940 055464 
ae} 055470 


000207 


030706 
030706 


000400 
005056 
000024 


2 
000012 
053646 


000026 
000026 


053620 
000030 


000014 


000001 


7MLX4 


27$: 


30$: 


31$: 


; Routine Size: 


288: INC 
298: 


DEFINITION OF OPTION 3 
R3,R0 
RO 


26(SP) 
26(SP) #1 
318 


i$ 
PC 


485 words 


; Maximum stack depth per invocation: 


37 words 


Be Be Se Be Se Be 


WRDCNT,* 


WRDCNT,* 


SECTOR,* 
*, SECTOR 


LUN 
LUN,* 


COMP .FLAG 
COMP.FLAG,* 


23-Oct-19 
23-0ct-19 


@oo 


oo 


SEQ 0219 


TOPS 
PA:< 


5140 


5141 


ooo _-_ - 
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(OP Bt DEFINITION OF OPTION 3 


sMLX4 23-0 
a2 DEFINITION OF OPTION 4 23-0 


ZSBTTL ‘DEFINITION OF OPTION 4° 


ROUTINE haf pe NOVALUE = 
BEGIN !* 1 * START OF ROUTINE 


ve Ge . . 


ROUTINE : UPT4 


PURPOSE : TO LOOK FOR INTEREACTIONS BETWEEN SECTORS 
USING A MARCH TEST. 


THE CODE IN BRIEF: 


' 

' 

' 

' 

' 

' 

' 

| 

! BEGIN 1 (START OF ROUTINE) 

! SAY ROUTINE IS RUNNING 

! WORD COUNT = 256 

! GENERATE A BUFFER OF ats 

! GENERATE A BUFFER OF COMP 

! INITIALIZE Awe TO 4 BUFFERS FOR WRITE/READ DATA/COMP 
! INCR LUN FROM 0 TO LAST 

! : BEGIN 2 (START OF TOGICAL UNIT SELECTION LOOP) 

3 TESTLOOP: 

! : : BEGIN 3 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
a . UNIT IS, ACTIVE 

i . 

! 
1 
' 
1 
i 
' 


THEN 

: : : BEGIN 4 (START OF TEST FOR AN ou UNIT) 
“a. : INCR SECTOR FROM LOWEST TO HIGH 

: : BEGIN 4A (START OF 1ST SECTOR SELECTION LOOP) 

: : : WRITE ‘DATA‘ 
: : LOOK FOR ERRORS (IF DROP UNIT, Woes =" 
END 4A (END OF 1ST SECTOR SELECTION 
te CHOOSE WHETHER TO WRITE CHECK OR a 1 ORTAY 
‘2 INCR SECTOR FROM LOWEST TO HIGHEST 

' : : : : BEGIN 4B (START OF 2ND SECTOR SELECTION LOOP) 
i oe : DO THE WRITE CHECK OR READ OF ‘DATA’ 
233 rte’ tcole ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
! a LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
' ; : : : END 48 (END OF 2ND SECTOR SELECTION LOOP) 
48 4 CHOOSE WHETHER TO WRITE CHECK OR READ TCOMP* 
' 2 3 DECR SECTOR FROM HIGHEST TO LOUEST 
' : : : : BEGIN 4C (START OF 3RD SECTOR SELECTION LOOP) 
~~ e ¢ % : DO THE WRITE CHECK OR READ OF ‘COMP’ 
2:23 38 ee en ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
! a LOOK FOR ERR ORS (IF DROP UNIT, LEAVE TESTLOOP) 
' ; : : : END 4C (END OF 3RD SECTOR SELECTION LOOP) 
mae CHOOSE WHETHER TO WRITE CHECK OR READ SATAY 
! 2 °f INCR SECTOR FROM LOWEST TO HIGHEST 
: : BEGIN 4D (START OF 4TH SECTOR SELECTION LOOP) 
: : DO THE WRITE CHECK OR READ OF 
: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 


ed ed ed eed ed ea cae ca ca ee ca ce ca cath ae ct cath ci ce a ce cl cae ct ce ee cae a ee ca ce ct ee eo a cd co cl cc ce ee ce ce ee el cd 
DOOOWO WO OO OW WW O09 9 00 00 00 00 SI I SS SI SIS NN SAA AAAAAAAASMIMMAMN 


were esl ealeal tal altal al al sh sh ah sb dh sh Ab sb Ab Ab Ab Ab Ah Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Abe ah Ab Ah Ab dh Ab bh ah tee Ae Ah Ak hed) 
© 


Be Se Be Se Se Be Be Be Se Be Se Ge Ge Ge Bs Be Se Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Sete Ge 


men 
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PA:<ROSEN>MLX4.BLI1.1 


(44) 


SEQ 0220 


—_—__ 


j 
| 
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sMLX4 


Be Se Be Be Se Se Se Be Be Be Be Se Se Se Be Be Se Be Se Ge Se Se Se Be Ge Ge Ge Se Ge Gs Ge Ge Be He Ge Ge Ge Ge Se Se Ge Ge Se Ge Ge Se Se Se Ge Ge Se Ge 


PIPOPIPI POP POP NPYNPI PY POND NPY NINM NPN NMP MPO PP POPE NPonyfno rere rorunrrvrvennTy 
WWWIWWIWN NINA WMA AIR PINON NONI NI NUNN 2 2 9 I OO OO OM MP OOO OOOCCOO 
DOONOA UNE WD CO OD NOAM WD | 0 OONAUE WN OOONOAUE Wr 


PUDDLES STS SST 


~m 
= 
o 


5241 


23-Oct-1980 15:01: 
DEFINITION OF OPTION 4 23-0ct-1980 14:5 


' : : : 3 END 4D (END OF 4TH SECTOR SELECTION LOOP) 
' : : : END 4 (END OF TEST FOR AN ACTIVE UNIT) 

' : : END 3_ (END OF TESTLOOP) 

: a 2 (END OF LOGICAL UNIT SELECTION LOOP) 

! 

' 


RETURN 
END 1 (END OF ROUTINE) 


LABEL 
LO 


3 TOPS=20 Bliss-16 V2(206) 
5 PA: <ROSEN>MLX4.BLI.1 (44) 


LOCAL 
VALUE, OLDSEC, OLDCHN, PTR, COMMAND, DBL_VALUE, 
WOPTR, RDPTR, WCPTR, RCPTR; 


PRINTB(SAY2 ,WRD34,RTN4) ; 
!;RUNNING OPT4 


GEN4 (.MARPAT , WOBUF F ) ; 
GEN4 ( (=. MARPAT) ,WCBUFF) ; 
WDPTR = WDB 


DPTR = FF; !POINTER TO 256-WORD WRITE DATA P''FFER 
WCPTR = WCBUFF, ‘POINTER TO 256-WORD WRITE COMP 6GUFFER 
RDPTR = RDBUFF; !POINTER TO 256-WORD READ DATA BUFFER 
RCPTR = RCBUFF; !POINTER TO 256-WORD READ COMP BUFFER 


'® 2 * START OF LOGICAL UNIT SELECTION LOOP 


OOP: 
BEGIN !* 3 * START OF THE LOOP THA! COMPLETELY TESTS 1 UNIT 
A ie italiana EQL ACTIVE 


BEGIN !* 4 * START OF TEST FOR AN ACTIVE UNIT 
L$LUN = .LUN; 
PRINTB(SAY1,WRD35); 
'"MARCHING' 
PRINTB CFT WRD24) 
INCR SECTOR FROM LOWEST TO HIGHEST DO 
BEGIN '* 6A * START OF 1ST SECTOR SELECTION LOOP 
VALUE = WRITE(.LUN,256, .WDPTR, SECTOR) ; 
'¢ 
i SEE WOW SUCCESSFUL THE WRITE WAS: 


SELECTONE .VALUE OF 'SEE "SYSERR*® FOR DEFINITION 
SET 'OF ERROR # CONTAINED IN ‘VALUE* 


BEGIN !* 4A1 * RETRY ALLOWED 
IF RETRY(SIX,WRITE, .LUN,256, .WDPTR, SECTOR) NEQ 0 
THEN 'THE RETRY FAILED -- SYSTEM FATAL ERROR 


BEGIN 
WHY DROPTC.LUN) = CODE_4; 
ERRDF (401,MSG1,0); '#eee OPTION 4 ERROR 01 *ee* 


INCR LUN FROM 0 TO (.LSUNIT - 1) DO 
eo 


SEQ 0221 
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0F Bt DEFINITION OF OPTION 3 
| 9064 :MLX4 23-Oct-1980 15:01:43  TOPS-20 Bliss-16 v2(206) 
| Shee : DEFINITION OF OPTION 4 23-0ct-1980 14:57:05  PA:<ROSEN>MLX4.BLI.1 (44) 
9067 ; 5254 DODU(.LUN) ; 
9068 ; 5255 LEAVE LOOP; 'JUMP JUST BEYOND END OF BLOCK * 3 * 
9069 ; 5256 END; \ 
9070 ; 5257 END; !* GAl * 
9071 ; 5258 2]: 
9072 ; 5259 BEGIN !* GA2 * FATAL CONTROLLER ERROR == NO RETRY ALLOWED 
9073 ; 5260 WHY DROPTC.LUN] = CODE_5; 
9074 ; 5261 ERRDF(402,MSG1,0); !*#*** OPTION 4 ERROR 02 **** 
9075 ; 5262 DODU<.LUN) ; 
9076 ; 5263 LEAVE LOOP; !JUMP JUST BEYOND END OF BLOCK * 3 * 
9077 ; 5264 END; !* 4A2 * 
9078 ; 5265 (3) : 
9079 : 5266 BEGIN !* 4A3 * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
9080 ; 5267 ERRDF(403,MSG1,0); !*ee* OPTION 4 ERROR 03 see 
9081 : 5268 WHY _DROPTC.LUNJ = CODE_6; 
9082 ; 5269 pop0(.LUN); 
9083 ; 5270 LEAVE LOOP; 'JUMP JUST BEYOND END OF BLOCK * 3 * 
9084 ; 5271 END; !* 4A3 * 
9085 ; 5272 
9086 ; 5273 TES; 
9087 ; 5274 
9088 ; 5275 END; !* 4A * END OF 1ST SECTOR SELECTION LOOP 
9089 ; 5276 
9090 ; 5277 PRINTB(FMT2,WRD24) ; 
9091 ; 5278 p! 
9092 : 5279 COMMAND = CHOOSE(); 
9093 ; 5280 INCR SECTOR FROM LOWEST TO HIGHEST DO 
9094 ; 5281 BEGIN !* 4B * START OF 2ND SECTOR SELECTION LOOP 
9095 ; 5282 IF .COMMAND EQL READ 
50% ; 5283 THEN 
9097 ; 5284 BEGIN 
9098 : 5285 PTR = .RDPT 
9099 ; 5286 VALUE = READ(. LUN,256,.PTR, SECTOR); 
9100 ; 5287 END 
9101 ; 5288 
9102 ; 5289 EG 
9103 ; 5290 PTR = .W 
9104 ; 5291 VALUE = CHECK. LUN,256,.PTR,.SECTOR); 
9105 ; 5292 END; 
9106 ; 5293 '¢ 
9107 ; 5294 i SEE HOW SUCCESSFUL THE OPERATION WAS: 
9108 ; 5295 la 
9109 ; 5296 SELECTONE .VALUE OF ‘SEE 'SYSERR' FOR DEFINITION 
9110 ; 5297 SET (OF ERROR # CONTAINED IN ‘VALUE 
9111 ; 5298 (0) : 
9112 ; 5299 IF .COMMAND EQL READ 
9113 ; 5300 THEN 
9114 ; 5301 BEGIN 
9115 ; 5302 If (DBL_VALUE = DOUBLE_CHECK(.WDPTR,.RDPTR,256)) NEQ 0 
9116 ; 5303 THEN 
9117 ; 5304 BEGIN 
9118 ; 5305 SAYWHO(.LUN) ; 


| 
| 
| 
| 


SEQ 0222 


MLX4 
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| 9120 


| 9123 
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sMLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
" DEFINITION OF OPTION 4 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 
; 5306 PRINTB(SAY1 »MSG5); 

; 5307 OGIC FAILED TO DETECT para ERROR' 

3 5308 PRINTECEMT TSK -DBL_VALUE, .DBL_ VALUE); 

; 5305 AM oe: path : Rey AT “LOCATION, yyvyyy' 

; 5310 ALUE = VALUE + BUFSIZ * 2; 

; 5311 PRIRYBCFATI ri2b “ens VALUE, .DBL_VALUE); 

; 5312 '"BAD DATA: PPPPBPP AT (DCATION: 00d00a' 

; 5313 WHY DROPTC.LUN) = CODE_8; 

; 5314 ERRBF(404,MSG1,0);  !*#** OPTION 4 ERROR 04 tee 

; 5315 DODU(.LUN) ; 

: aei6 LEAVE LOOP: ' JUMP JUST BEYOND END OF BLOCK * 4 * 
; 5318 END; 

; 5319 (1) : 

5 5320 BEGIN !* 4B1 * RETRY ALLOWED 

: 5321 IF RETRY(SIX,.COMMAND,.LUN,256,.PTR,.SECTOR) NEQ 0 

; 5322 THEN 'THE RETRY FAILED -- SYSTEM FATAL ERROR 

3 5323 BEGIN 

; 5324 WHY DROPTC.LUN] = CODE 4 

; 5325 ERRBF (405,MSG1,0); ieee OPTION 4 ERROR 05 «tex 

; 5326 DODU(.LUN) ; 

; 5327 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 3 * 
; 5328 END; 

: 5329 END; 's 4B1 * 

; 5330 2]: 

; 5331 BEGIN !* 4B2 « rare CONTROLLER ERROR -- NO RETRY ALLOWED 

3 5332 WHY _DROPTC. LUN] = 

; 5333 ERRDF (406,MSG1 0); Or geke OPTION 4 ERROR 06 «ee« 

; 5334 DODU(.LUN) ; 

; 5335 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 3 * 
: 5336 END; !* 482 * 

3 5337 (3] : 

; 5338 BEGIN ‘* 4B3 « FATAL DRIVE ERROR =- NO RETRY ALLOWED 

3 5339 ERRDF(407,MSG1,0);  ‘*e** OPTION 4 ERROR 07 eeee 

: 5340 wHY pRoPTt. -LUNJ = “CODE_6; 

; 5341 pop0(.LUN); 

3 5342 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 3 * 
: 5343 END; '* 483 * 

: 5344 (4) : 

3 5345 BEGIN t 4B4 * UNRECOVERABLE DATA ERROR 

; 5346 ISOLATE () 

; 5347 ERRDF (408. *mSG2 0; Bene OPTION 4 ERROR 08 eee 

; 5348 WHY DROPTE.LUN) = 7; 

: 5349 pop0<. 3 

3 5350 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 3 * 
: 5351 END; !* 4B4 * 

g 5352 (5] : 

3 5353 BEGIN '* 485 * RECOVERABLE DATA ERROR 

5354 ISOLATE(); 

3 5355 IF .ERROUT 

: 5356 THEN PRINTB(FMT10B,.CHAN):; 

: 5357 BIT QQ’ 


SEQ 0223 





' 
| 
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9176 ;MLX4 

9177 ; 

9178 

9179 ; 5358 
9180 ; 5359 
9181 ; 5360 
9182 ; 5361 
9183 ; 5362 
9184 ; 5363 
9185 ; 5364 
9186 ; 5365 
9187 ; 5366 
9188 ; 5367 
9189 ; 5368 
9190 ; 5369 
9191 ; 5370 
9192 ; 5371 
9193 ; 5372 
9194 ; 5373 
9195 ;: 5374 
9196 ; 5375 
9197 ; 5376 
9198 ; 5377 
9199 ; 5378 
9200 ; 5379 
9201 ; 5380 
9202 ; 5381 
9203 ; 5382 
9204 ; 5383 
9205 ; 5384 
9206 ; 5385 
9207 ; 5386 
9208 ; 5387 
9209 ; 5388 
9210 ; 5389 
9211; 5390 
9212 ; 5391 
9213 ; 5392 
9214 ; 5393 
9215 ; 5394 
9216 ; 5395 
9217 ; 5396 
9218 ; 5397 
9219 ; 5398 
9220 ; 5399 
9221 ; 5400 
9222 ;: 5401 
9223 ; 5402 
9224 ; 5403 
9225 ; 5404 
9226 ; 5405 
9227 ; 5406 
9228 ; 5407 
9229 ; 5408 
9230 ; 5409 


DEFINITION OF OPTION 4 
OLDSEC = .MLEL; 
OLDCHN = .CHAN; 
A coset raabineas c sspmamusrg) tia: testa EQ. 5 
a EQL .OLDSEC) AND (.CHAN EQL .OLDCHN)) 


PA:<ROSEN>MLX4.BLI.1 


BEGIN 
IF .ERROUT 
THEN 
ERRHRD(409,MSG4,0); !*t* OPTION 4 ERROR 09 *ee* 
UP_HARD_COUNT(.LUN, .BOARD) ; 
ENB 
ELSE 
BEGIN 
IF .ERROUT 
THEN 
ERRSOFT(410,MSG3,0); !**** OPTION 4 ERROR 10 «#e* 
UF SOF T_COUNT( -LUN, «BOARD? ; 


BEGIN 
IF .ERROUT 
THEN 
ERRSOFT(411,MSG3,0); !**** OPTION 4 ERROR 11 wees 
uP SOF T_COUNT(.LUN, .BOARD) ; 
END; !* 4B5 * 
TES; 
VALUE = WRITE(.LUN,256, .WCPTR, . SECTOR) ; 
14 
i SEE HOW SUCCESSFUL THE WRITE WAS: 


SELECTONE .VALUE OF 'SEE "SYSERR* FOR DEFINITION 
SET 'OF ERROR # CONTAINED IN ‘VALUE* 


1] : 
BEGIN !* 486 * RETRY ALLOWED 
IF RETRY(SIX,WRITE,.LUN,256,.WCPTR,.SECTOR) NEQ 0 
THEN 'THE RETRY FAILED -- SYSTEM FATAL ERROR 


BEGIN 

WHY DROPTC.LUN] = CODE_4; 

ERRBDF(412,MSG1,0); '*ee* OPTION 4 ERROR 12 **e* 
DODU(.LUN); 

LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 3 * 


END; 
END; !* 4B6 * 


2) : 
BEGIN ‘'* 4B7 * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
WHY DROPTC.LUN) = CODE_5; 
ERRBF (413,MSG1,0); 'eeee OPTION 4 ERROR 13 eee8 
DODU(.LUN); 


: ; TOPS=20 Bliss-16 V2(206) 


(44) 


SEQ 0224 
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(3) : 


23-Oct-1980 15:01:43  TOPS=20 Bliss-16 V2(206) 

DEFINITION OF OPTION 4 23-0ct-1980 14:57:05  PA:<ROSENDMLX4.BLI.1 (44) 

LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 3 * 

END; !'* 4B7 * 

BEGIN !* 4B8 * FATAL DRIVE ERROR <= NO RETRY ALLOWED 

ERRDF(414,MSG1,0);  !**#* OPTION 4 ERROR 14 tene 

WHY _DROPTC.LUNI = CODE_6; 

pop0(.LUN); 

LEAVE LOOP: JUMP JUST BEYOND END OF BLOCK * 3 * 

END; '* 4B8 * 

i B 


END; '® 4B * END OF 2ND SECTOR SELECTION LOOP 
ee ,WRD25); 
DOWN 


COMMAND = Pee; 
DECR ie FROM HIGHEST TO LOWEST DO 


BE 
IF 
TH 


‘4 
1 
' 


IN !* 6C * START OF 3RD SECTOR SELECTION LOOP 
" staineree EQL READ 


BFGIN 
PTR = .RCPTR; 
ge READ(.LUN,256,.PTR,.SECTOR); 


BEG 
PTR = .WCPTR; 
oe CHECK(.LUN,256,.PTR,.SECTOR); 


SEE HOW SUCCESSFUL THE OPERATION WAS: 


SELECTONE -VALUE OF 'SEE "SYSERR' FOR DEFINITION 


(0) 


‘OF ERROR # CONTAINED IN ‘VALUE 
IF .COMMAND EQL READ 
THEN 


BEGIN 
cans = DOUBLE _CHECK(.WCPTR,.RCPTR,256)) NEQ 0 


EGIN 
SAYWHO(.LUN); 
PRINTBCSAYY MSGS); 
''ECC LOGIC FAILED TO DETECT By ERROR' 
PRINTBCFRTN2A. DBL VALUE, .DBL_VALUE); 
ee 4 ee AT *TOCATION” yYvYyy' 
LUE = VALUE + BUFSi2 F 2; 
PRIRTBCFAT 128... ppt V VALUE, .DBL_VALUE); 
BAD DATA: reece AT coekriON” a0daaa' 
WHY DROPIC. ae) = CODE_8; 
ERRBF (415, MSG1, 05° (Zee OPTION 4 ERROR 15 eeee 


SEQ 0225 
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9288 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 Vv2(206) 
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9291 ; 5462 DODU(.LUN); 

9292 : 5463 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
9293 ; 5464 END; 

9294 ; 5465 END; 

9295 : 5466 (1) : 

9296 : 5467 BEGIN !* 4C1 * RETRY ALLOWED 

9297 : 5468 IF RETRY(SIX,.COMMAND,.LUN,256,.PTR,.SECTOR) NEQ 0 

9298 ; 5469 THEN 'THE RETRY FAILED == SYSTEM FATAL ERROR 

9299 ; 5470 BEGIN 

9300 ; 5471 WHY DROPTC.LUN] = CODE_4; 

9301 ; 5472 ERRDF(416,MSG1,0);  !*eee OPTION 4 ERROR 16 eee 

9302 ; 5473 DODU(.LUN); 

9303 ; 5474 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 3 * 
9304 ; 5475 END; 

9305 ; 5476 END; '® 4(1 * 

9306 ; 5477 (2) : 

9307 : 5478 BEGIN !* 4C2 * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
9308 ; 5479 WHY DROPTC.LUN] = CODE 

9309 ; 5480 ERRDF (417,MSG1,0); Sees OPTION 4 ERROR 17 *ee« 

9310 : 5481 DODU(.LUN) ; 

9311 : 5482 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 3 * 
9312 ; 5483 END; !* 4(2 * 

9313 : 5484 (3) : 

9314 : 5485 BEGIN !'* 4C3 * FATAL DRIVE ERROR -- NO RETRY ALLOWED 

9315 : 5486 ERRDF(418,MSG1,0);  ‘te** OPTION 4 ERROR 18 teee 

9316 : 5487 WHY _DROPTC.LUN = CODE_6; 

9317 : 5488 pODU(.LUN); 

9318 ;: 5489 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 3 * 
9319 ; 5490 END; !* 4(3 * 

9520 ; 5491 (4) : 

9321 ; 5492 BEGIN . 404 * UNRECOVERABLE DATA ERROR 

9322 ; 5493 ISOLATE () 

9323 ; 5494 ERRDF (419, *mSG2,0 leeee OPTION 4 ERROR 19 eaee 

9324 ; 5495 WHY DROPTL. am * COve_7; 

9325 ; 5496 pop0(.LUN) ; . 

9326 ; 5497 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 3 * 
9327 ; 5498 END; !* 4(4 * 

9328 ; 5499 (5) : 

9329 ; 5500 BEGIN !* 4C5 * RECOVERABLE DATA ERROR 

9330 ; 5501 ISOLATE(); 

9331 ; 5502 IF .ERROUT 

9332 ; 5503 THEN PRINTOCFRT IOS, , CHAN) ; 

9333 ; 5504 BIT 

9334 ; 5505 SL BSEC = ett 

9335 ; 5506 OLDCHN = .CHA 

9336 ; 5507 LF RETRY CONE. COMMAND, .LUN,256,.PTR,.SECTOR) EQL 5 

9337 ;: 5508 THEN 

9338 : 5509 IF ((.MLEL EQi .OLDSEC) AND (.CHAN EQL .OLDCHN)) 

9339 ; 5510 THEN 

9340 ; 5511 BEGIN 

9341 : $512 IF .ERROUT 

9342 : 5513 THEN 
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ERRHRD(420,MSG4,0); !**** OPTION 4 ERROR 2 
nn eee BOARD); 


EN 
ELSE 
BEGIN 
IF .ERROUT 
THEN 
ERRSOFT(421,MSG3,0); !**** OPTION 4 ERROR 21 e#e* 
UP_SOFT_COUNT(.LUN, .BOARD); 
END 
ELSE 
BEGIN 
al .ERROUT 


ERRSOFT(422,MSG3,0); !**** OPTION 4 ERROR 22 *#** 
UP_SOFT _COUNT(. LUN, .BOARD) ; 


END; 
END; !*# 405 *. 
TES; 
a = WRITE(.LUN,256, .WDOPTR,.SECTOR); 
a SEE HOW SUCCESSFUL THE WRITE WAS: 


SELECTONE .VALUE OF 'SEE "SYSERR' FOR DEFINITION 
SET \OF ERROR # CONTAINED IN ‘VALUE’ 


1]: 
BEGIN !* 4C6 * RETRY ALLOWED 
IF RETRY(SIX,WRITE,.LUN,256,.WDPTR,.SECTOR) NEQ 0 


4 
0 


reree 


1: 
rs 
0 


oO 
Ww 
Leal 
oO 


DUP DUP PVP PVP SVS STV STS STS SVS STS ST STS STITT TTT 
S&F NWNAWAANANWNWWN NN NNMNMNMNNN ee es 
WR SO ODN AUEWN $0 ODNAUEWN —$OOONAU ES 


wel eal eal al al ah sh ah Ah sb ah sh dh sh Ab ah Ah Ab Ab Ab Ab Ah Ah Ab db Ab Ah Ab Ab Ab Ab Ah Ab Ab ah Ab ah Ab Ab Ah Ak Ab a Ab Aba ah ah AA 


9377 544 THEN '!THE RETRY FAILED -= SYSTEM FATAL ERROR 

9378 545 BEGIN 

9379 546 WHY DROPTC.LUN] = CODE_4 

9380 547 ERRDF (423,MSG1,0); ifese OPTION 4 ERROR 23 *ee* 

9381 548 DODU(.LUN); 

9382 549 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 3 * 
9383 550 END; 

9384 551 END; = !* 4(6 * 

9385 552 2]: 

9386 553 BEGIN !«* 4(7 * rare CONTROLLER ERROR -- NO RETRY ALLOWED 
9387 554 WHY DROPTC.LUN] = CODE 

9388 555 ERRDF (424,MSG1, Ady (Zeee OPTION 4 ERROR 24 eeee 

9389 556 DODU(.LUN); 

9390 557 LEAVE LOOP: ‘JUMP JUST BEYGND END OF BLOCK * 3 * 
9391 558 END; ‘!* 4C7 * 

9392 559 (3) : 

9393 560 BEGIN !* 4(8 * Fata DRIVE ERROR -- NO RETRY ALLOWED 

9394 561 ERRDF (425,MSG1,0 leeet OPTION 4 ERROR 25 eee 

9395 562 WHY DROPTL. tod = "CODE _6; 

9396 563 DODD(.LUN); 

9397 564 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 3 * 
9398 5565 END; '* 4(8 * 


| 9363 ; 
9364 ; 
9365 ; 
9366 ; 
9367 ; 
9368 ; 
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9400 ;MLX4 
9401 ; 
9402 
| 9403 ; 5566 
| 9404 ; 5567 
| 9405 : 5568 
| 9406 ; 5569 
| 9407 ; 5570 
| 9408 : 5571 
9409 ; 5572 
9410 ; 5573 
9411 ; 5574 
9412 : 5575 
9413 ; 5576 
9414 : 5577 
9415 ; 5578 
9416 ; 5579 
9417 : 5580 
9418 ; 5581 
9419 : 5582 
9420 ; 5583 
9421 ; 5584 
9422 ; 5585 
9423 ; 5586 
9424 ; 5587 
9425 ; 5588 
9426 ; 5589 
9427 ; 5590 
9428 ; 5591 
9429 ; 5592 
9430 ; 5593 
9431 ; 5594 
9432 ; 5595 
9433 ; 5596 
9434 ; 5597 
9435 ; 5598 
9436 ; 5599 
9437 ; 5600 
9438 : 5601 
9439 ; 5602 
9440 ; 5603 
9441 ; 5604 
9442 ; 5605 
9443 ; 5606 
9444 ; 5607 
9445 ; 5608 
9446 : 5609 
9447 : 5610 
9448 ; 5611 
9449 ; 5612 
9450 ; 5613 
9451 ; 5614 
9452 ; 5615 
9453 ; 5616 
9454 ; 5617 
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TES; 
END; '® 4C * END OF 3RD SECTOR SELECTION LOOP 
s(t? »WRD24); 
U 
COMMAND = CHOOSE () 
INCR SECTOR FROM Lowest TO HIGHEST DO 
BEGIN !* 4D * START OF 4TH SECTOR SELECTION LOOP 
IF .COMMAND EQL READ 
THEN 
BEGIN 


PTR = .RDPTR; 
av = READ(.LUN,256,.PTR,.SECTOR); 


BEGIN 
PTR = .WDPTR; 
VALUE = CHECK(.LUN,256,.PTR,.SECTOR); 


END; 

'¢ 

; SEE HOW SUCCESSFUL THE OPERATION WAS: 

SELECTONE » VALUE OF 'SEE "SYSERR' FOR DEFINITION 
SET 'OF ERROR # CONTAINED IN ‘VALUE’ 


0} : 
IF . COMMAND EQL READ 
THEN 


BEGIN 
cs VALUE = DOUBLE_CHECK(.WDPTR,.RDPTR,256)) NEQ 0 


EGIN 
SAYWHO(.LUN); 
PRINTB(SAY1, MSGS); 
LOGIC FAILED TO DETECT DATA ERROR' 
PRINTBUFMT 2A, .DBL VAILUE, .DBL_VALUE); 
ee 4 XXXRXX AT "LOCATION yyvyyy* 
LUE = L_VALUE + BUFSIZ 2; 
PRIRTBCFAT1 28, 08 \ ALUE, .DBL_ VALUE); 
'*BAD DATA: PPpPPE AT + oot etOn 000000" 
WHY _DROPTL. ‘m3 = CODE_8; 
ERDF (426. HST. 0); O eeke OPTION 4 ERROR 26 *ee* 
U 
LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 


vig END; 
BEGIN !'* 4D1 * RETRY ALLOWED 


IF RETRY(SIX,. COMMAND, .LUN,256,.PTR,.SECTOR) NEQ 0 
ag RETRY FAILED =~ SYSTEM FATAL ERROR 


3 TOPS=-20 Bliss-16 V2(206) 
5 PA: <ROSEN>MLX4.BLI1.1 


(44) 


SEQ 0228 


LX4 MACRO M1113 re 80 09:59 PAGE 274 


Opts DEFINI™ ION OF OPTIO 


9456 ;MLX4 

9457 ; 

| 9458 

| 9459; 5618 

| 9460 ; 5619 
9461 ; 5620 
9462 ; 5621 
9463 ; 5622 

| 9464 ; 5623 
9465 ; 5624 

| 9466 ; 5625 
9467 ; 5626 
9468 ; 5627 
9469 ; 5628 
9470 ; 5629 
9471 ; 5630 
9472 ; 5621 
9473 ; 5632 
9474 ; 5633 
9475 : 5634 
9476 ; 5635 
9477 : 5636 
9478 ;: 5637 
9479 ; 5638 
9480 ; 5639 
9481 ; 5640 
9482 ;: 5641 
9483 ; 5642 
9484 ; 5643 
9485 ; 5644 
9486 ; 5645 
9487 ; 5646 
9488 ; 5647 
9489 ; 5648 
9490 ;: 5649 
9491 ; 5650 
9492 : 5651 
9493 ;: 5652 
9494 ; 5653 
9495 : 5654 
9496 ; 5655 
9497 : 5656 
9498 : 5657 
9499 ;: 5658 
9500 ; 5659 
9501 ; 5660 
9502 ;: 5661 
9503 ; 5662 
9504 ; 5663 
9505 : 5664 
9506 ; 5665 
9507 ;: 5666 
9508 ; 5667 
9509 ;: 5668 
9510 ; 5669 


DEFINITION OF OPTION 4 


| 


[2] 


(3) 


(4] : 


(5) 


WHY DROPTC.LUN] = 
ERRDF (427,MSG1, 0; 


DODU(.LUN) ; 
LEAVE LOOP; 


END; 
END; !* 401 * 


BEGIN !* 4D2 * 
WHY DROPTC.LUNJ 


ERRBF (428,MSG1,0); 


DODU(.LUN) ; 
LEAVE LOOP; 
END; '® 4D2 * 


BEGIN !* 4D3 * 
ERRDF (429,MSG1,0 
WHY pDROPTL. ‘ad's 
pop0(.LUN); 
LEAVE LOOP: 
END; !* 4D3 * 


BFGIN Ss 404 * 
ISOLATE () 


ERRDF (430, "MSG2 0); 


E_4; 
Mi teke OPTION 4 ERROR 27 *#** 
‘JUMP JUST BEYOND END OF BLOCK * 3 


Fate CONTROLLER ERROR =~ NO RETRY ALLOWED 
(Zeee OPTION 4 ERROR 28 ween 
‘JUMP JUST BEYOND END OF BLOCK * 3 
FATAL DRIVE ERROR == NO RETRY ALLOWED 
Teete OPTION 4 ERROR 29 tees 
"CODE_6 
‘JUMP JUST BEYOND END OF BLOCK « 3 


UNRECOVERABLE DATA ERROR 
texte OPTION 4 ERROR 30 tune 


WHY pRoPtt. LUN) = CODE_?; 


DODO(.LUN) ; 
LEAVE LOOP; 
END; !* 4D4 * 


BEGIN !* 4D5 * 
ISOLATE(); 


‘JUMP JUST BEYOND END OF BLOCK * 3 


RECOVERABLE DATA ERROR 


IF .ERROUT 
THEN je cmeat . CHAN) ; 


OLDSEC = ot 
OLDCHN = 


Yl RETRY (ONE. COMMAND, -LUN,256,.PTR,.SECTOR) EQL 5 
TF (CMLL EQL .OLDSEC) AND (.CHAN EGL .OLDCHN)) 


BEGIN 
IF .ERROUT 
THE 


N 
ERRHRD(431,MSG4,0); !*t** OPTION 4 ERROR 31 *e** 


E 
ELSE 


BEGIN 
IF .ERROUT 
THEN 


es entities tenner: 


E 
ERRSOFT(432,MSG3,0); !**** OPTION 4 ERROR 52 eee8 
UP_SOFT_COUNT(.LUN, .BOARD) ; 


*® 


3 TOPS=-20 Bliss-16 V2(206) 
5 PA:<ROSEN>MLX4.BLI. 


1 


(44) 


SEQ 0229 
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9515 ; 5670 END 
9516 : 5671 ELSE 
9517 : 5672 BEGIN 
9518 : 5673 IF .ERROUT 
9519 : 5674 THEN 
9520 «sx 5675 ERRSOFT(433,MSG3,0); !**e* OPTION 4 ERROR 33 eee 
9521; 5676 UP_SOFT_COUNT(.LUN,.BOARD); 
9522 ; 5677 END; 
9523 ; 5678 END; ‘* 4D5 * 
9524 ; 5679 
9525 : 5680 TES; 
9526 : 5681 
9527 ; 5682 END; 's 4D * END OF 4TH SECTOR SELECTION LOOP 
9528 ; 5683 END; |'* 4 © END OF TEST FOR AN ACTIVE UNIT 
9529 ; 5684 END; |'* 3 * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 
9530 ; 5685 END; |!* 2 .* END OF LOGICAL UNIT SELECTION LOOP 
9531 : 5686 RETURN: 
Sees 3 5687 END; ‘'* 1 * END OF ROUTINE 
9537 -SBTTL OPTS DEFINITION OF OPTION 4 
9541 055472 004137 005222 OPT4: JSR R1,$SAVE5 : 5152 
9542 055476 162706 000030 SUB #30,SP 
9543 055502 012746 007272 MOV #RING,-(SP) : 5217 
9544 055506 012746 006766 MOV #WRD34,-(SP) 
9545 055512 012746 006522 MOV SAY? =($P) 
9546 055516 012746 000003 MOV 5,5(5P) 
9547 055522 010600 MOV SPR : SP,* 
9548 055524 104414 TRAP —s-_‘14 
9549 055526 013716 002246 MOV MARPAT, (SP) : 5220 
9550 055532 012746 010706 MOV #WOBUFF ,=(SP) 
551 055536 004737 036654 JSR PC, GEN4 
9552 055542 013716 002246 MOV MARPAT, (SP) ; 5221 
553 055546 005416 NEG (S 
554 055550 012746 011706 MOV #UCBUFF,-(SP) 
9555 055554 004737 036654 JSR PC, GEN4 
9556 055560 012766 010706 000016 MOV #UDBUFF 16 (SP) : *,WDPTR 5222 
9557 055566 012766 011706 000030 MOV #WCBUFF .30(SP) > *-WCPTR $223 
9558 055574 012766 020706 000026 MOV #RDBUF F 26 (SP) : *_RDPTR 5224 
9559 055602 012766 021706 000034 MOV #RCBUFF , 34(SP) + *-RCPTIR 5225 
9560 055610 013766 002012 000042 MOV LSUNIT,42(SP) : 5227 
9561 055616 005066 000014 CLR 14(SP) > LUN 
9562 055622 000137 062536 JMP 83$ 
9563 055626 016600 000014 1$: MOV 14(SP),RO > LUN,* 5231 
9564 055632 006200 ASR RO 
9565 055634 006200 ASR RO 
9566 055636 006200 ASR RO 


Re a ee ee ee sleiiateiaeeaiaiasiedinailies 
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9571 055640 062700 032460 

9573 055646 016646 000016 

9574 055652 042716 177770 

9575 055656 012746 000001 
5 5 004737 004244 

9578 055670 062706 000010 

5300 

1160 

6637 000014 002074 

76 
9584 055716 012746 000002 


9587 055726 012716 006754 
9588 055732 012746 005602 
9589 055736 012746 000002 
9592 055746 016600 000026 
9594 055754 Senet paenrs 000052 
012766 032516 000050 
06 0 


604 000052 
04 

016646 000026 

056020 012746 000400 

4 016646 000034 

Or onds 042246 

9608 056040 020527 000001 
056044 1036 


9610 056046 000006 
9611 056052 012746 042246 
9612 056056 016646 000042 
9613 056062 012746 000400 
9614 05 016646 000050 
9615 056072 010446 

9616 056074 004737 043046 
9617 056100 062706 000014 
9618 056104 005700 

9619 056106 001455 

9620 056110 016600 000036 
9621 056114 112760 000004 032464 
9622 056122 104455 


sMLX4 


23: 


DEFINITION OF OPTION 4 
#ORIVE .STATUS,RO 
RO,-(SP) 


nRotsp) =(SP) 

#177776, (SP) 
#1,-(SP5 

-(§P) 

PC ,BL$GT2 

#16,SP 

RO 


6$ 
14(SP) ,LSLUN 


#WRO35,-(SP) 
#SAY1,-(SP) 
#2,-(SP) 

0 
#WRD24, (SP) 
#FMT2,-(SP) 
#2,-(SP) 

SP ,RO 


1 
> ethan 


#LOW.SECT,52(SP) 


RO,52(SP) 


TOP. SECT, 50(5P) 
50(SP) 


ttt Sp R2 
a52(SP), "Rd 


8$ 

26(SP) ,-(SP) 
#400 ,-(SP) 
34(SP) ,-(SP) 
R4,-(SP) 

PC WRITE 
RO,R5 

R5,#1 


3$ 

#6,-(SP) 

WRITE ,-(SP) 

OS gl ~ (SP) 
#400,-(SP) 

50(SP) ,-(SP) 

R4,-(SP) 


PC RETRY 
4 t4,s 


36(SP) RO 
 aaietematame 


LUN,* 


LUN,* 


SPs 


SP,* 
LUN,* 


*, SECTOR 
SECTOR 


LUN,* 


WOPTR,* 
SECTOR,* 


* , VALUE 
VALUE ,* 


LUN,* 


WOPTR,* 
SECTOR,* 


LUN,* 


23-Oct-19 
23-0ct-19 


oc 


SEQ 0231 


TOPS 
PA:< 


5234 
5235 


5237 


5239 


5241 


5245 


5249 


5252 
5255 
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OPTS DEFINITION OF OPTION 4 SEQ 0232 
9624 sMLX4 23-0ct-1980 15:01:43 TOPS 
| e082 ; DEFINITION OF OPTION 4 23-0ct-1980 14:57:05 PA:< 
9627 056124 000621 «WORD 621 
9628 056126 010512 .WORD MSG! 
9629 056130 000000 WORD 0 
9630 056132 016600 000036 MOV 36(SP),RO ; LUN,* 5254 
9631 056136 104451 TRAP 51 
9632 056140 000435 BR 5$ : 5255 
9633 056142 020527 000002 3$: CMP R5,#2 : VALUE,* 5245 
9634 056146 001015 BNE 4$ 
9635 056150 016600 000036 MOV 36(SP),RO ; LUN,* 5260 
9636 056154 112760 000005 032464 MOVB #5 ,,WHY .DROPT (RO) 
9637 056162 104455 TRAP 55 : 5261 
9638 056164 000622 «WORD 622 
9639 056166 010512 .WORD MSG1 
9640 056170 000000 .WORD 0 
9641 056172 016600 000036 MOV 36(SP),RO ; LUN,* 5262 
9642 056176 104451 TRAP 51 
9643 056200 000415 BR 5$ : 5263 
9644 056202 020527 000003 4$: CMP R5,#3 ; VALUE,* 5245 
9645 056206 001015 BNE 7$ 
6 056270 104455 TRAP 55 ; 5267 
9647 056212 000623 «WORD 623 
9648 056214 010512 .WORD MSG1 
9649 056216 000000 .WORD 0 
9650 056220 016600 000036 MOV 36(SP),RO : LUN,* 5268 
9651 056224 112760 000006 032464 MOVB #6, WHY .DROPT (RO) 
9652 056232 104451 TRAP 51 : 5269 | 
56234 000022 5$: ADD #22,SP ; 5270 | 
9654 056240 000566 6$: BR 14$ 
9655 056242 062706 000010 7$: ADD #10,SP : 5240 
9656 056246 005204 8$: INC R4 ; SECTOR 5239 | 
56250 020402 CMP R4,R2 : SECTOR,* 
9658 056252 003660 BLE 2s 
9659 056254 012716 006754 MOV #WRD24, (SP) : 5277 
9660 056260 012746 005602 MOV #FMT2,-(SP) 
9661 056264 012746 000002 MOV #2,-(SP) 
9662 056270 010600 MOV SP,RO : SP,* 
9663 056272 104414 TRAP 14 
9664 056274 004737 043010 JSR PC, CHOOSE : 5279 
056300 010001 MOV 1 3; *, COMMAND 
2 017666 000054 000036 MCV a54(SP), 36(SP) : 5280 
9667 056310 017694 000056 MOV @56(SP),R4 : *,SECTOR 
9668 056314 005304 DEC R ; SECTOR 
9 056316 000137 057666 JMP 328 
9670 056322 005002 9$: CLR R2 : 5282 
9671 056324 020127 042434 CMP R1,#READ : COMMAND, * 
056330 001014 BNE 10 
9673 056332 005202 INC 
9674 056334 016603 000044 MOV 44(SP),R3 ; RDPTR,PTR 5285 
5 056 016646 000032 MOV 32(SP),-(SP) 3; LUN,* 5286 
9676 056344 012746 000400 MOV #400,-(SP) 
9677 056350 010346 MOV R3,-(SP ; PTR,* 
9678 056352 010446 MOV R4,-(SP) : SECTOR,* 


CF  ------ Orr Ore > ---- - - ek — Oe ——_—__—_—__ 


le m2 
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lopte DEFINITION OF OPTION 4 SEQ 0233 
9680 MLX4 23-Oct-1980 15:01:43 TOPS 
9681 : DEFINITION OF OPTION 4 23-Oct-1980 14:57:05  PA:< 
354 004737 042434 JSR PC, READ 

9684 056360 000412 BR 11$ 

9685 056362 016603 000034 10$: MOV 34(SP),R3 : WOPTR,PTR 5290 

9686 056366 016646 000032 MOV ' 32(SP).=(SP) + LUN,* 5291 

9687 056372 012746 000400 MOV #400,-(SP) 

9688 056376 010346 MOV R3,-(SP) : PTR,* 

9689 056400 010446 MOV R4,-(SP) ; SECTOR,* 

9690 056402 004737 042622 JSR PC. CHECK 

9691 056406 010005 11$: MOV RO,RS : *, VALUE 

9692 056410 001104 BNE 15$ : 5296 

9693 056412 0060 ROR R2 ; 5299 

9694 056414 103402 BLO 13$ 

9695 056416 000137 057432 12$: JMP 27$ 

9696 056422 016646 000044 13$: MOV 44(SP) ,-(SP) ; WOPTR,* 5302 

9697 056426 016646 000056 MOV 56(SP).-(SP) : RDPTR.« 

9698 056432 012746 000400 MOV #400,-(SP) 

9699 056436 004737 041226 JSR PC ,DOUBLE. CHECK 

9700 056442 062706 000006 ADD #6,SP 

9701 056446 010066 000060 MOV RO, 60(SP) : *,DBL. VALUE 

9702 056452 001761 BEQ 12$ 

9703 056454 016646 000042 MOV 42(SP) ,-(SP) ; LUN,* 5305 

9704 056460 004737 033436 JSR PC, SAYWHO 

9705 056464 012716 010640 MOV #MSGS, (SP) : 5306 

9706 056470 012746 006514 MOV #SAY1.-(SP) 

9707 056474 012746 000002 MOV #2,-($P) 

9708 056500 010600 MOV SP.RO : SP,* 

9709 056502 104414 TRAP = ‘14 | 

9710 056504 016616 000066 MOV 66(SP), (SP) : DBL.VALUE,* 5308 | 

9711 056510 017646 000066 MOV 866(SP) ,-(SP) ; DBL.VALUE,* 

9712 056514 012746 006332 MOV #FMTI2A.-(SP) 

9713 056520 012746 000003 MOV #3,-(SP) 

9714 056524 010609 MOV SP,RO : SP,* 

9715 056526 104414 TRAP ‘14 

9716 056530 062766 010000 000074 ADD #10000,74(SP) : *,DBL.VALUE 5310 

9717 056536 016616 000074 MOV 74(SP), (SP) ; DBL.VALUE,* 5311 

9718 056542 017646 000074 MOV a74(SP),-(SP) : DBL.VALUE.* 

9719 056546 012746 006400 MOV #FMT12B,-(SP) 

9720 056552 012746 000003 MOV #3,-(SP) 

9721 056556 01 MOV SP RO : SP,* : 

9722 056560 104414 TRAP = ‘14 

9723 056562 016602 000064 MOV 64(SP) ,R2 > LUN,* 5313 
4 056566 112762 000010 032464 MOVB  #10,WHY.DROPT(R2) | 

9725 056574 104455 TRAP = 55 ; 5314 

9726 056576 000624 .WORD 624 

9727 056600 010512 "wORD MSGI 

9728 056602 000000 “wORD 0 ‘ 

9729 056604 016600 000064 MOV 64(SP) RO } hs LUN,® 5315 

9 056610 104451 TRAP 51 am" 

9731 056612 062706 000050 ADD #50,SP : 5316 

9732 056616 000137 062532 14$:  JMP 82$ 

9733 056622 020527 000001 15$: CMP R5,#1 : VALUE,* 52% 

9734 056624 010 BNE 16% 





a 


eo 
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OPTS DEFIN'TION OF OPTION 4 SEQ 0234 
9736 sMLX4 23-0ct-1980 15:01:43 TOPS 
ore 3 DEFINITION OF OPTION 4 23-0ct-1980 14:57:05 PA:< 
9739 056630 012746 000006 MOV #6,-(SP) ; 5321 
9740 056634 010146 MOV R1,=(SP) + COMMAND, * 

9741 056636 016646 000046 MOV 46(SP) ,<(SP) : LUN,* 
9742 056642 012746 000400 MOV #400,-(SP) 
9743 056646 010346 MOV R3,-(SP) : PTR,* 
9744 056650 010446 MOV R4,-(SP) : SECTOR,* 
9745 056652 004737 043046 JSR PC, RETRY 
9746 056656 062706 000014 ADD #i4,sP 
9747 056662 005700 TST RO 
9748 056664 001654 BEQ 12$ 
9749 056666 016602 000042 MOV 42(SP),R2 : LUN,* 5324 
9750 056672 112762 000004 032464 MOVB #4,WHY.DROPT(R2) 
9751 056700 104455 TRAP =“ 555 ; 5325 
9752 056702 000625 «WORD 625 
9753 056704 010512 .WORD MSG1 
9754 956706 000000 .WORD 0 
9755 056710 016600 000042 MOV 42(SP),RO : LUN,* 5326 
9756 056714 104451 TRAP = 1 
9757 056716 000457 BR 19$ ; 5327 
9758 056720 020527 000002 16$: CMP R5,#2 : VALUE,* 5296 
9759 056724 001015 BNE 17$ 
9760 056726 016602 000042 MOV 42(SP),R2 : LUN,* 5332 
9761 056732 112762 000005 032464 MOVB #5,WHY.DROPT(R2) 
9762 056740 104455 TRAP =‘ 555 ; 5333 
9763 056742 000626 .WORD 626 
9764 056744 010512 .WORD MSG1 
9765 056746 000000 .WORD 0 
9766 056750 016600 000042 MOV 42(SP),RO : LUN,* 5334 
9767 056754 104451 TRAP ss‘ 51 
9768 056756 000437 BR 19$ : 5335 
9769 056760 020527 000003 17$: CMP R543 : VALUE,* 5296 
9770 056764 001014 BNE 18% 
9771 056766 104455 TRAP =: 55 : 5339 
9772 056770 7 .WORD 627 
9773 056772 010512 WORD MSG1 
9774 056774 WORD 
9775 056776 016602 000042 MOV 42(SP),R2 ; LUN,* 5340 
9776 057002 112762 000006 032464 MOVB #6,WHY.DROPT(R2) 
9777 057010 010200 MOV R2,RO > LUN,* 5341 
9778 057012 104451 TRAP =.‘ 1 
9779 057014 000420 BR 19$ ; 5342 
9780 057016 020527 000004 18$: CMP R586 > VALUE,* 5296 
9781 057022 001017 BNE 20 
9782 057024 004737 035212 JSR PC, ISOLATE ; 5346 
9783 057030 104455 TRAP 3s‘ 55 ; 5347 

057032 000630 .WORD 630 
9785 057034 010542 .WORD SG2 

057 000000 . WORD 
9787 057040 016602 000042 MOV 42(SP),R2 : LUN,* 5348 
9788 057044 112762 000007 032464 MOVB #7, WHY.DROPT(R2) 
9789 057052 010200 MOV R2,RO > LUN,* 5349 
9790 057054 104451 TRAP ss 


--s-—— 


'MLXG 
[OPTS DEFINITION OF OPTION 4 


062526 
000005 


035212 
000001 


153316 


177700 


006262 
000002 


9813 057144 104414 

000006 
153252 
153242 


177700 
000050 
000001 


000046 
000400 


043046 
000014 
000005 
153154 


000050 
153136 


177700 
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7MLX4 


19$: 
208: 


002260 


000052 218: 


000052 


DEFINITION OF OPTION 4 


her 

27§ 

PC, ISOLATE 
#1 ,ERROUT 


panel ia 


£17700, »R2 
#FMT10B,-(SP) 
#2, = 


14 


#6,SP 
QML .REG+44 ,52(SP) 
AML .REG+42,R2 


ra) 
anc ela 


23 
50(SP) ,RO 
OM. RES*SS RG 


R 
#177700,R2 
R2,RO 


+ VALUE,* 


SP,* 


* ,OLDSEC 


* ,OLDCHN 


COMMAND , * 
LUN,* 


PTR,* 
SECTOR,* 


* ,OLDSEC 


; OLDCHN,* 


23-Oct-19 
23-0ct-19 


oo 


SEQ 0235 


TOPS 
PA:< 


5350 
5296 


5354 
5355 


5356 


5358 


5359 


5360 


5362 
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‘OPT4 DEFINITION OF OPTION SEQ 0236 
| 9848 :MLX4 23-Oct-1980 15:01:43 TOPS 
Seen : DEFINITION OF OPTION 4 23-Oct-1980 14:57:05 PA:< 
9851 057312 001017 BNE 23$ 
9852 057314 032737 000001 002260 BIT #1, ERROUT : | 5365 
| 9853 057322 001404 BEQ 228 
9854 057324 104456 TRAP =: 56 : 5367 
9855 057326 000631 «WORD 631 
9856 057330 010624 ;WORD MSG4 
9857 057332 000000 .WORD 0 
9858 057334 016646 000042 22$: MOV 42(SP),~(SP) : LUN,* 5368 
9859 0573460 013746 032360 MOV BOARD, -(SP) 
9860 057344 004737 035302 JSR PC,UP.HARD. COUNT 
9861 057350 000427 BR 26$ : 5362 
9862 057352 032737 000001 002260 23%: iT #1,ERROUT : 5372 
9863 057360 001415 BEO 25$ 
9864 057362 104457 TRAP ‘57 : 5374 
9865 057364 000632 WORD 632 
057366 010610 WORD MSG3 
9867 057370 000000 “WORD 0 
9868 057372 000410 BR 25$ : 5375 
9869 057374 032737 000001 002260 24%: BIT #1, ERROUT : 5379 
9870 057402 001404 BEQ 25$ 
9871 057404 104457 TRAP ‘57 : 5381 
9872 057406 000633 .WORD 6 
9873 057410 010610 WORD  MSG3 
9874 057412 00000 “WORD 0 
9875 057414 016646 000042 25$: MOV 42(SP) ,-(SP) > LUN,* 5382 
9876 057420 013746 032360 MOV BOARD, -(SP) 
9877 057424 004737 035430 JSR PC,UP.SOFT. COUNT 
9878 057430 022626 26$: CMP (SP) +, (SP) + : 5353 
9879 057432 016616 000042 27$: MOV 42(SP), (SP) > LUN,* 5388 
9880 057436 012746 000400 MOV #400,-(SP) 
9881 057442 016646 000060 MOV 60(SP) ,-(SP) : WCPTR,* 
9882 057446 010446 MOV R4,-(SP) > SECTOR,* 
9883 057450 004737 042246 JSR PC WRITE 
9884 057454 010005 MOV RO,RS > *, VALUE 
9885 057456 020527 000001 CMP R541 > VALUE, * 5392 
9886 057462 001036 BNE 28$ 
9887 057464 012746 000006 MOV #6,-(SP) : 5396 
9888 057470 012746 042246 MOV #URITE,-(SP) 
9889 057474 016646 000054 MOV 54(SP), ag (sP) > LUN,* 
9890 057500 012746 000400 MOV #400,- 
9891 057504 016646 000074 MOV 74(SP), erp) : WCPTR,* 
9892 057510 010446 MOV R4,-(SP) > SECTOR,* 
9893 057512 004737 043046 JSR PC RETRY 
989% 057516 062706 ADD #i4.sp 
9895 057522 005700 TST R 
9896 057524 001456 BEQ 31$ 
9897 057526 016602 000050 MOV 50(SP) ,R2 > LUN,* 5399 
9898 057532 112762 000004 032464 MOVB so, aly *DROPT(R2) 
057540 104455 TRAP 3s «SS : 5400 
057542 000634 .WORD 634 
9901 057544 010512 WORD MSG1 
9902 057546 000000 WORD 





ao 


MLX4G 


9956 057776 
9957 060000 
9958 060004 


000050 


000002 


000050 
000005 


000050 


000003 


000050 
000006 
000034 
000016 
000036 
02 

137 056322 


000002 


043010 
000062 
17604 000060 
061316 
042434 
000056 


016646 000036 
000400 


042434 


032464 


032464 


000042 
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‘OPT4 DEFINITION OF OPTION 


sMLX4 


28$: 


298: 


30$: 


31$: 
32$: 


33$: 


34$: 


DEFINITION OF OPTION 4 


50(SP),RO 
51 

30$ 

RS,#2 
208 
50(S 


50(S 

R2,RO 

51 

#34 ,SP 
39$ 
#16,SP 
R4 

R4, 36(SP) 
33$ 


9$ 

#WRD25, (SP) 
#FMT2,-(SP) 
#2,-(SP) 
SP, 

14 

PC ,CHOOSE 


RO-R 
a62(SP),42(SP) 
a60(SP).R 

58$ 


R2 
R1,#READ 


35$ 


R2 
56(SP),R3 
36(SP),-(SP) 
#400,-(SP) 
R3,-(SP) 
R4,-(SP) 

PC ,READ 


36$ 


R2 
$3° MY. “DROPT(R2) 


R2 
#6, ay. “DROPT(R2) 


LUN,* 


VALUE ,* 
LUN,* 


LUN,* 


VALUE ,* 


LUN,* 
LUN,* 


SECTOR 
SECTOR,* 


; SP.® 


* , COMMAND 
*, SECTOR 


COMMAND , * 


RCPTR,PIR 
LUN,* 


PTR,®* 
SECTUR,* 


23-Oct-19 
23-Oct-19 


@oo 
oo 


SEQ 0237 


TOPS 
PA:< 


5401 


5402 
5392 


5407 
5408 


5409 


5410 
5392 


5414 


5415 
5416 
5417 


5281 
5280 


5424 


5426 
5427 


5429 


5432 
5433 
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OPTS DEFINITION OF OPTION 4 SEQ 0238 
9960 SMLX4 23-Oct-1980 15:01:43 TOPS 
| 3308 ; DEFINITION OF OPTION 4 23-0¢t-1980 14:57:05 PA:< 
9963 060006 016603 000052 35$: MOV 52(SP),R3 + WCPTR,PTR 5437 
| 996% 060012 016646 000036 MOV —-36( SP) ,=(SP) : LUN, * 5438 
9965 060016 012746 000400 MOV «#400, -(SP) 
| 9966 060022 010346 MOV —sR3,,= (SP) : PTR,* 
9967 060024 010446 MOV R4,-(SP) ; SECTOR,* 
9968 060026 004737 042622 JSR so PC CHECK 
9969 060032 010005 36$: MOV —ROLRS + *, VALUE 
9970 060034 001103 BNE 40$ ; 5443 
9971 060036 006002 ROR —s- R2. : 5446 
9972 060040 103402 BLO «38S 
9973 060042 000137 061060 37$: IMP 53 
9974 060046 016646 000062 38$: MOV 6 2(SP), = (SP) : WCPTR,* 5449 
9975 060052 016646 000070 MOV 70(SP) .=<SP) * RCPTR.« 
9976 060056 012746 000400 MOV «#400, = (SP) 
9977 060062 004737 041226 JSR «PC, DOUBLE . CHECK 
9978 060066 062706 000006 ADD #6.SP 
9979 060072 010066 000064 MOV —s- RO. 64 (SP) ; *,DBL.VALUE 
9980 060076 001761 BEQ 37$ 
9981 060100 016646 000046 MOV 46 (SP),=(SP) : LUN,* 5452 
9982 060104 004737 033436 JSR PC,SAYWHO 
9983 060110 012716 010640 MOVs #MSG5, (SP) ; 5453 
9984 060114 012746 006514 MOVs #SAY1.=(SP) 
9985 060120 012746 000002 MOVs #2, = (SP) 
9986 060124 010600 MOV SP-RO : SP,* 
9987 060126 104414 TRAP 1G 
9988 060130 016616 000072 MOV. —«-72¢SP), (SP) : DBL.VALUE,* 5455 
9989 060134 017646 000072 MOV —sa?2( SP), -( SP) : DBL.VALUE.* 
9990 060140 012746 006332 MOV so #EMT12A.=(SP) 
9991 060144 012746 000003 MOVs #3, = (SPS 
9992 060150 010600 MOV SP-RO : SP,* 
9993 060152 104414 TRAP 14 
9994 060154 062766 010000 000100 ADD #10000, 100(sP) : *,DBL.VALUE 5457 
9995 060162 016616 000100 MoV 100(SP5, (SP) : DBL.VALUE,* 5458 
9996 060166 017646 000100 My BNO LSPS sa (SP : DBL.VALUE.* 
9997 060172 012746 006400 MOY ERT 2B, “(SP) 
9998 060176 012746 000003 MOVs #3, = (SP 
9999 060202 010600 MOV SP; RO : SP,* 
10000 060204 104414 TRAP 14 
10001 060206 016602 000070 MOV —s- 70 SP) ,R2 : LUN,* 5460 
10002 060212 112762 000010 032464 MOVB Ls oy at DROPT(R2) 
10003 060220 104455 TRAP 55 : 5461 
10004 060222 000637 WORD 637 
10005 060224 010512 "WORD MSGI 
10006 060226 "WORD 0 
10007 060230 016600 000070 MoV 70(SP) ,RO : LUN,* 5462 
10008 060236 104451 TRAP 51 
10009 060236 002706 000054 ADD —s-: #54, SP : 5463 
10010 060242 000520 39$: BR 45% 
10011 060244 020527 000001 40$: CMP  R5,#1 : VALUE, * 5443 
10012 060250 001034 BNE 4i$ 
10013 060252 012746 000006 MOV —s- #6, - (SP) ; 5468 
10014 060256 010146 MOV R1,-(SP) ; COMMAND, * 
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‘OPT4 DEFINITION OF OPTION 4 SEQ 0239 
10016 SMLX4 23-Oct-1980 15:01:43 TOPS 
| 6 AE ; DEFINITION OF OPTIUN 4 23-0ct-1980 14:57:05 PA:< 
| 10019 060260 016646 000052 MOV «52 SP) ,=( SP) : LUN,* 
10020 060264 012746 000400 MOV «#400, = (SP) 
| 10021 060270 010346 MOV —sRB, = (SP) : PTR, « 
10022 060272 010446 MOVs R4L=(SP) ® SECTOR,* 
10023 060274 004737 043046 JSR PCLRETRY 
10024 060300 062706 000014 ADD s«w#14,SP 
10025 060304 005700 TST —RO 
10026 060306 001655 BEQ 0s: 
10027 060310 016602 000046 MOV —-&B(SP) ,R2 ; LUN,* 5471 
10028 060314 112762 000004 032464 MOVE #4, WHY LDROPT(R2) 
10029 060322 104455 TRAP 55 ; 5472 
10030 060324 000640 WORD 640 
10031 060326 010512 "WORD MSGI 
10032 060330 000000 "WORD 0 
10033 060332 016600 000046 - MOV 46(SP),RO ; LUN,* 5473 
10034 060336 104451 TRAP 511 
10035 060340 000457 BR 44s : 5476 
10036 060342 020527 000002 41$: (MP sRS #2 : VALUE,* 5443 
10037 060346 001015 BNE 428 
10038 060350 016602 000046 MOV —«-&B(SP) ,R2 : LUN,* 5479 
10039 060354 112762 000005 032464 MOVB #5, WHY _DROPT(R2) 
10040 060362 104455 TRAP 55 : 5480 
10041 060364 000641 WORD 641 
1 0366 010512 ~ WORD MSG1 
10043 060370 000000 "woRD 0 
10044 060372 016600 000046 HOV «G6 C(SP),RO : LUN,* 5481 
10045 060376 104451 TRAP S51 
10046 000437 BR 44s , 5482 
10047 060402 020527 000003 42%: CMP RS. #3 : VALUE,* 5443 
10048 060406 001014 BNE 43% 
10049 060410 104455 TRAP 55 : 5486 
10050 060412 000642 WORD 642 
10051 060414 010512 "WORD MSGI 
10052 060416 000000 "WORD 0 
10053 060420 016602 000046 HOV 4B (SP) ,R2 : LUN,* ' 5487 
10054 060424 112762 000006 032464 MOVB #6 WHY LDROPT(R2) 
10055 060432 010200 MOV —sR2-RO : LUN,* 5488 
10056 060434 104451 TRAP 51 
10057 060436 000420 BR 44s | : 5489 
10058 060440 020527 000004 438: CMP RS. #4 : VALUE, * 5443 
10059 060444 001021 BNE 46 
10060 060446 004737 035212 JSR _—PC, ISOLATE : 5493 
10061 060452 104455 TRAP SS : 5494 
10062 060454 000643 WORD 643 
10063 060456 010542 "WORD -MSG2 
10064 060460 000000 “WORD 
10065 060462 016602 000046 HOV 46 (SP) ,R2 : LUN,* 5495 
10066 060466 112762 000007 032464 MOVE «#7 ,WHY LDROPT (R2) 
10067 060474 010200 MOV —sR2-RO : LUN,* 5496 
10068 060476 104451 TRAP 51 
10069 060500 062706 000032 44%: ADD  #32,SP , 5497 
10070 060504 000137 062532 45$: JMP —-B2$ 
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OPT4 DEFINITION OF OPTION 4 SEQ 0240 

10072 MLX4 23-Oct-1980 15:01:43 TOPS 
864 ; DEFINITION OF OPTION 4 23-Oct-1980 14:57:05  PA:< 
| 10075 060510 020527 000005 46$: CMP RS, #5 ; VALUE,* 5443 
| 10076 060514 001161 BNE ‘538 

10077 060516 004737 035212 JSR PC, ISOLATE : 5501 

10078 060522 032737 000001 002260 BIT #1 ,ERROUT ; 5502 

10079 060530 001423 BEQ 47 

10080 060532 017702 151670 MOV AML .REG+42 ,R2 ; 5503 

10081 060536 006202 ASR R2 

10082 060540 006202 ASR Re 

10083 060542 006202 ASR Re 

10084 060544 006202 ASR R2 

1 0546 006202 ASR R2 

10086 060550 006202 ASR Re 

10087 060552 042702 177700 BIC #177700,R2 

10088 060556 010246 MOV R2,-(SP) 

10089 060560 012746 006262 MOV #FMT10B,-(SP) 

10090 060564 012746 000002 MOV #2,-(SP) 

10091 060570 010600 MOV SP,RO ; Me 

10092 060572 104414 TRAP 14 

10093 060574 062706 000006 ADD #6,SP 

10094 060600 017766 151624 000056 47$: MOV AML .REG+44 ,56(SP) ; *,OLDSEC 5505 

10095 060606 017702 151614 MOV AML .REG+42,R2 : 5506 

10096 060612 006202 ASR R2 

10097 060614 0062 ASR Re 

10098 060616 006202 ASR R2 

10099 060620 006202 ASR R2 

10100 060622 006202 ASR Re 

10101 060624 006202 ASR R2 

10102 060626 042702 177700 BIC #177700 ,R2 

10103 060632 010266 000054 MOV R2,54(SP) ; *,OLDCHN 

10104 060636 012746 000001 MOV #1,-(SP) : 5507 

10105 060642 010146 MOV R1,-(SP) ; COMMAND, * 

10106 060644 016646 000052 MOV 52(SP) ,=(SP) ; LUN,* 

10107 060650 012746 000400 MOV #400,-(SP) 

10108 060654 010346 MOV R3,-(SP) ; PTR,* 

10109 060656 010446 MOV R4,-(SP) ; SECTOR,* 

10110 060660 004737 043046 JSR PC RETRY 

10111 060664 062706 000014 ADD #14,SP 

10112 060670 020027 000005 CMP RO, #5 

10113 060674 001052 BNE 50$ 

10114 060676 027766 151526 000056 CMP @ML .REG+44 ,56(SP) ; *,OLDSEC 5509 

10115 060704 001035 BNE 49$ 

10116 060706 016600 000054 MOV 54(SP) ,RO ; OLDCHN,* 

10117 060712 017702 151510 MOV AML .REG+42 ,R2 

10118 060716 006202 ASR R2 

10119 060720 006202 ASR Re 

10120 060722 006202 ASR Re 

10121 060724 006202 ASR Re 

10122 060726 202 ASR Re 

10123 060730 006202 ASR Re 

10124 060732 042702 177700 BIC #177700,R2 

10125 060736 020200 CMP R2,RO 

10126 060740 001017 BNE 498 
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OPT4 DEFINITION OF OPTION 4 SEQ 0241 
10128 7MLX4 23-0ct-1980 15:01:43 TOPS 
O\% ; DEFINITION OF OPTION 4 23-0ct-1980 14:57:05 PA:< 
10131 060742 032737 000001 602260 BIT #1, ERROUT : §512 
10132 060750 001404 BEQ 48$ 
10133 060752 104456 TRAP 56 : 5514 
10134 060754 000644 «WORD 644 
10135 060756 010624 WORD MSG4 
10136 060760 000000 WORD 0 
10137 060762 016646 000046 48$: MOV 46(SP),-(SP) : LUN,* 5515 
10138 060766 013746 032360 MOV BCARD,-(SP) 

10139 060772 004737 035302 JSR PC,UP.HARD. COUNT 

10140 060776 000427 BR 52% : 5509 
10141 061000 032737 000001 002260 498: BIT #1, ERROUT : 5519 
10142 061006 001415 BEQ 51$ 

10143 061010 104457 TRAP 57 : 5521 
10144 061012 000645 WORD 645 

10145 061014 010610 WORD MSG3 

10146 061016 000000 WORD 0 

10147 061020 000410 BR 51$ : §522 
10148 061022 032737 000001 002260 50$: BIT #1, ERROUT : 5526 
10149 061030 001404 BEQ 51$ 

10150 061032 104457 TRAP 57 : 5528 
10151 061034 000646 WORD 646 

10152 061036 010610 WORD MSG3 

10153 061040 000000 WORD 0 

10154 061042 016646 000046 51$: MOV 46(SP),-(SP) > LUN,* 5529 
10155 061046 013746 032360 MOV BOARD ,-(SP) 

10156 061052 004737 035430 JSR PC,UP.SOFT.COUNT 

10157 061056 022626 52$: CMP (SP)+, (SP)+ : 5500 
10158 061060 016616 000046 53$: MOV 46(SP), (SP) > LUN,* 5535 
10159 061064 012746 000400 MOV #400,-(SP) 

10160 061070 016646 000052 MOV 52(SP) ,-(SP) : WDPTR,* 

10161 061074 010446 MOV R4,-(SP) : SECTOR,* 

10162 061076 004737 042246 JSR PC,WRITE 

10163 061102 010005 MOV RO,RS > *,VALUE 

10164 061104 020527 000001 CMP R5,#1 : VALUE,* 5539 
10165 061110 001036 BNE 54$ 

10166 061112 012746 000006 MOV #6,-(SP) : 5543 
10167 061116 012746 042246 MOV #WRITE,-(SP) 

10168 061122 016646 000060 MOV 60(SP) ,-(SP) ; LUN,* 

10169 061126 012746 000400 MOV #400,-(SP) 

10170 061132 016646 000066 MOV 66 (SP) ,-(SP) : WDPTR,« 

10171 061136 010446 MOV R4,-(SP) : SECTOR,* 

10172 061140 004737 043046 JSR PC,RETRY 

10173 061144 062706 000014 ADD #i4,SP 

10174 061150 5700 TST RO 

10175 061152 001456 BEQ 57% 

10176 061154 016602 000054 MOV 54(SP),R2 > LUN,* 5546 
10177 061160 112762 000004 032464 MOVB #4 WHY .DROPT(R2) 

10178 061166 104455 TRAP 55 : 5547 
10179 061170 000647 «WORD 647 

10180 061172 010512 WORD MSG! 

10181 061174 000000 WORD 0 

10182 061176 016600 000054 MOV 54(SP),RO > LUN,* 5543 
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pow 
coco 
ow 


10 

101 

10187 061202 
10188 061204 
10189 061206 
10190 061212 
10191 061214 
10192 061220 
10193 061226 
10194 061230 
10195 061232 
10196 061234 
10197 061236 
10198 061242 
10199 061244 
10200 061246 
10201 061252 
10202 061254 
10203 061256 
10204 061260 
10205 061262 
10206 061264 
10207 061270 
10208 061276 
10209 061300 
10210 061302 
10211 061306 
10212 061310 
10213 061314 
10214 061316 
10215 061322 
10216 061324 
10217 061330 
10218 061334 
10219 061340 
10220 061344 
10221 061346 
10222 061350 
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sMLX4 


54$: 


032464 


55$: 


032464 


56$: 
57$: 
58$: 


59$: 


000064 


60$: 


DEFINITION OF OPTION 4 


51 
56$ 
R5,#2 
55$ 
54(SP),R2 


#5,,WHY .DROPT(R2) 


5 
R5 #3 


54(SP) ,R2 
#40,SP 

65$ 

+ aad 

R4 ,42(SP) 
59$ 

34% 

#WRD24, (SP) 
#FMT2,-(SP) 
SN 


14° 
PC CHOOSE 


R 
64 (SP) ,64(SP) 
@66(SP).R4 


R4 

80% 

R2 
R1,#READ 


61$ 


R2 
54(SP) R35 
42(SP),-(SP) 
#400,-(SP) 
R3,-(SP) 
R4,-(SP) 


#6 ,WHY .DROPT(R2) 
2,R0 


VALUE , * 


; LUN,* 


; LUN,* 


; VALUE,* 


; LUN,* 
; tUN,* 


; SECTOR 
; SECTOR,* 


. SP,* 


; *, COMMAND 
; *, SECTOR 
; SECTOR 

; COMMAND, * 
; ROPTR,PTR 
; LUN,* 


; PTR,* 
; SECTUR,* 


23-0ct-19 
23-0ct-19 


SEQ 0242 


:43 TOPS 
:05 


PA:< 
5549 
5539 
5554 
5555 


5556 


5557 
5539 


5561 


5562 
5563 
5564 


5428 
5427 


5571 


5573 
5574 


5576 


5579 
5580 
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10279 061632 
10280 061634 
10281 061636 
10282 061642 
10283 061650 
10284 061652 
10285 061654 
10286 061656 
10287 061660 
10288 061664 
10289 061665 
10290 061672 
10291 061674 
5344 pot 708 
1029 1702 
10294 061706 
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012716 
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000044 
000042 
000400 


042622 


000104 


032464 


7MLX4 


63$: 
64$: 


65$: 
66$: 


DEFINITION OF OPTION 4 
44 (SP) ,R3 


P) 
PC ,DOUBLE .CHECK 
RO, 70(SP) 
§ 


6 

52(SP) ,=(SP) 
PC, SAYWHO 
#MSG5, (SP) 
#SAY1,=-(SP) 
#2,-(SP) 


. 


14 

76(SP), (SP) 
@76(SP),-(SP) 
#FMTI2A,=(SP) 
#3,-(SP) 

Smee 


1 
#10000, 104 (SP) 


P),R2 
#10,WHY .DROPT(R2) 


652 
MSG1 


0 
74(SP),RO 
51 

#60,SP 
71$ 

RS, #1 

67% 
#6,-(SP) 
R1.=(SP) 


e. 


23-Oct-19 
23-0ct-19 


WDOPTR,PTR 
LUN,* 


PTR,* 
SECTOR, * 


; *,VALUE 


WDPTR,* 
RDPTR,* 


* ,DBL . VALUE 
LUN,* 


SP,* 
DBL .VALUE,* 
DBL.VALUE,* 
SP,* 
* ,DBL. VALUE 


DBL .VALUE ,* 
DBL.VALUE,* 


SP,* 


LUN,* 


LUN,* 


VALUE ,* 


COMMAND , * 


oo 


SEQ 0243 


TOPS 
PA:< 


5584 
5585 
5590 


5593 


5596 


5599 
5600 


5602 


5604 
5605 


5607 
5608 


5609 
5610 
5590 
5615 
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sMLX4 


67$: 


68$: 


69$: 


71$: 


DEFINITION OF OPTION 4 


S6(SP) ,=(SP) 
#400,-(SP) 
R3,=(SP) 

RG. =(SP) 
PC.RETRY 
#ié,SP 

RO 


63$ 
52(SP) ,R2 
 Cceihcpmetiah 


653 

he 
52(SP),RO 
51 

70$ 

R5 ,#2 

68% 
52(SP),R2 

#5 ,WHY .DROPT(R2) 


52(SP),R2 
#6 ,WHY .DROPT(R2) 
R2,RO 


70% 
R5 #4 


* metti 


3a (Se) Re 
# aN BSOPT CRED 


1 
#36,SP 
82% 


e. 


SEQ 0244 
23-Oct-1980 15:01:43 TOPS 
23-0ct-1980 14:57:05 PA:< 

LUN, * 
PTR,* 
SECTOR,* 
LUN, * 5618 
5619 
LUN,* 5620 
5621 
VALUE, * 5590 | 
LUN, * 5626 
5627 
LUN, * 5628 
5629 
VALUE, * 5590 
5633 
LUN,* 5634 
LUN,* 5635 
5636 
VALUE, * 5590 | 
eet 
LUN, * 5642 
LUN, * 5643 
5644 


r— 


| 


| 
| 


MLXG 


10352 

10353 

10354 

10355 062136 
10356 062142 
10357 062144 
10358 062150 
10359 062156 
10360 062160 
10361 062164 
10362 062166 
10363 062170 
10364 062172 
10365 062174 
10366 062176 
10367 062200 
10368 062204 
10369 062206 
10370 062212 
10371 062216 
10372 062220 
10373 062222 
10374 062226 
10375 062234 
10376 062240 
10377 062242 
10378 0622 
10379 0622 
10380 06 
10381 06225 
10382 062254 
10383 062260 
10384 062264 
10385 062270 
10386 062272 
10387 062276 
10388 062302 
10389 062304 
10390 062306 
10391 062312 
10392 062516 
10393 062322 
103% 062324 
10395 0623 
103% 062334 
10397 062340 
10398 062344 
10399 062346 
10400 062350 
10401 062352 
10402 062394 
10403 062356 
10404 062360 
10405 062364 
10406 2.2366 


000005 


035212 
000001 


150242 


177700 


006262 
000002 


000006 
150176 
150166 


177700 
000060 
000001 
000056 
000400 
043046 
000014 
000005 
150100 


000060 
150062 


177700 
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SMLX4 


72$: 


002260 


000062 73S: 


000062 


DEFINITION OF OPTION 4 


RS, #5 

79$ 

PC, ISOLATE 
#1 ERROUT 


7 
a REGISe Re 


R 
#177700,R2 
R2,-(SP) 
#FMT10B,-(SP) 
#2,-(SP) 


14 


#6,SP 
QML .REG+44 ,62(SP) 


OML .REG*+42 ,R2 
R 

#177700,R2 
R2,60(SP) 
60(SP) ,RO 


OM. RESSA2 Re 


R 
#177700,R2 
mee 


7 
@ML .REG*44 ,62(SP) 
75$ 


VALUE ,* 


SP, * 


* ,OLDSEC 


* ,OLDCHN 


; COMMAND ,* 


LUN,* 


PTR,* 
SECTOR,* 


* ,OLDSEC 
OLDCHN,* 


23-0ct-198 
23-0ct-198 


0 
0 


1 
1 


SEQ 0245 


TOPS 
PA:< 


5590 


5648 
5649 


5650 


5652 
5653 


5654 


5656 


Ra 7 Re, ORIG ea > 7 m3 
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OPTS DEFINITION OF OPTION SEQ 0246 
10408 MLX4 23<0¢t-1980 15:01:43 TOPS 
net ; DEFINITION OF OPTION 4 23-0¢t-1980 14:57:05 PA:< 
10411 062370 032737 000001 002260 BIT #1, ERROUT : 5659 
10412 062376 001404 BEQ 74$ 
10413 062400 104456 TRAP 56 ; 5661 
10414 062402 000657 «WORD 657 
10415 062404 010624 “WORD MSG4 
10416 062406 000000 “WORD «0 
10417 062410 016646 000052 74$: MOV 52(SP),<(SP) : LUN,* 5662 
10418 062414 013746 032360 MOV BOARD ,-(SP) 
10419 062420 004737 035302 JSR PC,UP.HARD. COUNT 
10420 062424 000427 BR : 5656 
10421 062426 032737 000001 002260 75$: BIT #1, ERROUT : 5666 
10422 062434 001415 BEQ 77$ 
10423 062436 104457 TRAP ‘57 ; 5668 
10424 062 000660 .WORD 660 
10425 062442 010610 WORD WMSG3 
10426 062444 000000 WORD 
10427 062446 000410 BR 77$ : 5669 
10428 062450 032737 000001 002260 76$: BIT #1, ERROUT : 5673 
10429 062456 001404 BEQ 77$ 
10430 062460 104457 TRAP ‘7 : 5675 
10431 062462 1 WORD 66 
10432 062464 010610 WORD MSG3 
10433 062466 000000 “WORD 0 
10434 062470 016646 000052 77$: MOV 52(SP),=(SP) : LUN,* 5676 | 
10435 062474 015746 032360 MOV BOARD, -(SP) 
10436 062500 004737 035430 JSR PC UP. SOFT. COUNT 
10437 062504 022626 78$: CMP (SP)+,(SP)¢+ $ 5647 
10438 062506 062706 000010 79$: ADD #10,SP : 5575 
10439 062512 005204 80$: INC R4 > SECTOR 5574 
10440 062514 020466 000064 CMP R464 (SP) ; SECTOR,* 
10441 062520 003002 BGT 81% 
10442 062522 000137 061376 JMP 60$ 
10443 062526 062706 000026 81$: ADD #26,SP : 5233 
10444 062532 005266 000014 82$: INC 14(§P) > LUN 5227 
10445 062536 026666 000014 000042 835: CMP 14(SP) ,42(SP) ; LUN,* 
10446 062544 002002 BGE 84$ 
10447 062546 000137 055626 JMP 1$ 
10448 062552 062706 000044 84$: ADD #46,SP : 5152 
10449 062556 600207 RTS PC 
10451 3 Routine Size: 1307 words 


> Maximum stack depth per invocation: 48 words 


—- ee, 


¢—— EEE 


N 
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10460 ;MLX4 23-0ct-1980 15:01:43 
or ; SELECTING A RANDOM WORD COUNT 23-0ct-1980 14:57:05 
10463 ; 5688 XSBITL ‘SELECTING A RANDOM WORD COUNT’ ‘ 
10464 ; 5689 

10465 ; 5690 ROUTINE RNDWC = 

10466 ; 5691 BEGIN 

10467 ; 5692 

10468 ; 5693 !++ 

10469 ; 5694 | ROUTINE: RNDWC 

10470 ; 5695! 

10471 ; 5696 |! PURPOSE: TO SELECT A RANDOM WORD COUNT WITHIN THE RANGE 
10472 ; 5697 |! 1 TO BUFSIZ. 

10473 ; 5698 =! 

10474 ; 5699 |! RESULT: THE VALUE RETURNED WILL BE USED BY THE CALLER 
10475 ; 5700 ! AS ITS ‘WRDCN 

10476 ;: 5701 !=- 

10477 ; 5702 

10478 ; 5703 LOCAL 

10479 ; 5704 WRDCNT; 

10480 ; 5705 

10481 ; 706 RNG; 

10482 ; 5707 

yor 3 HA RANDOM = .RANDOM AND %0'077777'; ‘IGNORE SIGN BIT 

10485 ; 5710 WRDCNT = ((.RANDOM MOD BUFSIZ) + 1); ‘FORCE THE RANGE 

10486 ; 5711 

10487 ; 712 RETURN .WRDCNT; 

10488 ; 571 

10489 ; 5714 END; . 

10493 t 

10494 .SBTTL RNDUC SELECTING A RANDOM WORD COUNT 
104698 062560 004737 005256 RNDWC: JSR P 3 
10499 062564 042737 100000 005352 BIC 7160000, RANDOM ; 
10500 062572 013746 005352 MOV RANDOM, =(SP) 3 
10501 062576 012746 004000 MOV #4000,-(SP) 

10502 062602 004737 005070 JSR PC ,BLSMOD 

10503 062606 005200 } INC R 

0504 062610 022626 CMP (SP)+,(SP)+ : 
eee 062612 000207 RTS PC 

10507 ; Routine Size: 14 words | } 

Hy ; Maximum stack depth per invocation: 2 words 


TOPS=20 Bliss-16 V2(206) 


PA:<ROSEN>MLX4.BLI.1 


(45) 


SEQ 0247 


4 


-——_-——— -- CC OOO Or 
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|RNDWC SELECTING A RANDOM WORD COUNT 
10515 ;MLX4 


PA:<ROSEN>MLX4.BLI.1 (46) 


TO SELECT A RANDOM SECTOR NUMRFR WITHIN THE RANGE 
OF TESTABLE SECTORS (LOWEST TO HIGHEST) 


THE CURRENT LOGICAL UNIT 
REQUIRED TO anti LOWEST/HIGHEST 


THE gs ey 1 ta WILL BE USED BY THE CALLER 


RANDOM’ * mop ~SIZE)); 


!TONORE THE SIGN BIT 


'FORCE RANGE 


-SBTTL RNDSEC SELECTING A RANDOM SECTOR 
J R1,$SAVE3 : 


VeisP), ARI > LUN,* 
#LOW.SECT,R3 


O2i$ ; SELECTING A RANDOM SECTOR 
10518 : 5715 XSBTTL "SELECTING A RANDOM SECTOR" 
10819 : 5716 
10520 : 5717 ROUTINE RNDSEC(LUN) = 
10521 : 5718 BEGIN 
10522 : $719 
10523 : 5720 14 
10524 ; 5721 i ROUTINE: RNDSEC (LUN) 
10525 : 5732 
10526 : 5753 i PURPOSE: 
10527 : 5794 
10528 : 5755 
| 10529 : $796 | ARGUMENT: LUN = 
10530 : 5757 i NOTE: "LUN' IS 
10531 ; 5728 FOR THE PARTICULAR LOGICAL UNIT 
10532 : 5799 I 
10533 : 5730 i RESULT: 
10534 : $731 | AS ITS 
10535 : $732 i- 
10536 : 5733 
10537 : 5734 LOCAL 
10538 : $735 SECTOR, SIZE; 
10539 : 5736 
10540 ; 5737 IF LOWEST EQL HIGHEST 
| 10541 : 5738 THEN 
10542 : 5739 SECTOR = LOWEST 
10348 : 5740 ELSE 
10344 : 5741 BEGIN 
10545 : 5742 RNG): 
10546 : $743 RANDOM = .RANDOM AND %0'077777": 
10547 : 5744 
10548 : 5745 SIZE = HIGHEST = LOWEST » 
10549 : 5746 SECTOR = (LOWEST ¢ 
10550 : 5747 «END: 
10551 : 5748 
10552 : 5749 RETURN .SECTOR: 
10553 : 5750 
10554 : 5751 END: 
10558 
0559 
10563 062614 004137 005164 RNDSEC: JSR 
10564 062620 016601 000012 MOV 
10565 062624 006301 ASL 
0566 062626 012703 032476 MOV 
10567 062682 060103 ADD 
10568 062634 021361 032516 CMP 
10569 062640 001002 BNE 


r--- 


R1_R 
(RS), TOP. SECT(R1) 


; 3 TOPS-20 Bliss-16 V2(206) _ 


SEQ 0248 


5717 
5737 


aa 


mux 


| 10571 


Ee ae ee 


000207 


005352 


1$: 


2s: 


; Routine Size: ; 
; Maximum stack depth per invocation: 
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|RNOSEC SELECTING A RANDOM SECTOR 


LX4 


SELECTING A RANDOM SECTOR 
(R3) ,R2 
se 


#160000, RANDOM 
TOP.SECT(R1),R1 
CRS) RI 


R 

RANDOM ,=-(SP) 

R1,-(SP) 

PC ,BLSMOD 
RO 


(R38) 

ROR 
(SP)+,(SP)+ 
R2,RO 


32 words 


6 words 


*, SECTOR 


SIZE,* 


*, SECTOR 
SECTOR,* 


23-Oct-19 
23-0ct-19 


coco 
oo 


SEQ 0249 


| 
| 
' 
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NDSEC SELECTING A RANDOM SECTOR 

10599 ;MLX4 23-0ct-1980 15:01:43 
44 ; SELECTING A RANDOM UNIT 23-0ct-1980 14:57:05 
10602 ; 5752 &SBTTL ‘SELECTING A RANDOM UNIT' 

10603 ; $753 

10604 ; 5754 ROUTINE RNDU = 

10605 ; 5755 BEGIN ‘!* 1 * 

10606 ; 5756 

10607 ; 5757 !44 

10608 ; 5758 ' ROUTINE: RNDU 

10609 ; 5759! 

10610 ; 5760 ! PURPOSE: TO SELECT A RANDOM LOGICAL UNIT NUMBER WITHIN 
10611 ; 5761 ! THE RANGE OF TESTABLE UNITS (0 TO .LSUNIT=-1) 
10612 ; 5762 !-- 

10613 ; 5763 

10614 ; 5764 LOCAL 

10615 ; 5765 LUN; 

10616 ; 5766 

10617 ; 5767 IF .LSUNIT EQL 1 

10618 ; 5768 THEN 

10619 ; 5769 LUN = 0 

10620 ; 5770 ELSE 

10621 ; 5771 BEGIN '!* 2 

10622 ; 5772 RN(); 

10623 ; 5773 RANDOM = .RANDOM AND %0'077777'; ‘IGNORE THE SIGN BIT 
10624 ; 5774 RANDOM = (.RANDOM MOD .LSUNIT); ‘FORCE THE RANGE 
10625 ; 5775 

10626 ; 5776 + 

10627 ; 5777 i MAKE SURE THE DRIVE IS ACTIVE. IF IT ISN'T, 

10628 ; 5778 i THEN FIND THE NEXT AVAILABLE ACTIVE DRIVE: 

10629 ; 5779 ie 

10630 ; 5780 

10031 ; 5781 INCR COUNT FROM 0 TO (.LSUNIT - 1) DO 

10632 ; 5782 IF .DRIVE_STATUSC.RANDOM) EQL ACTIVE 

10633 ; 5783 THEN 

10634 ; 5784 BEGIN 

10635 ; 5785 LUN = ,RANDOM; 

10636 ; 5786 LITLOOP. 

10637 ; 5787 END 

10638 ; 5788 ELSE 

10639 ; 5789 RANDOM = ((.RANDOM + 1) MOD .LSUNIT); 

10640 ; 5790 

10641 ; 5791 END; 'e Qe 

10642 ; 5792 

10643 ; 5793 RETURN .LUN; 

10644 ; 5794 

10645 ; 5795 END; 'e 1 * 

10649 

10650 .SBTTL RNDU SELECTING A RANDOM UNIT 


TOPS=20 Bliss-16 V2(206) 


PA: <ROSEN>MLX4.BLI.1 (47) 


SEQ 0250 


ate 
zz 
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iRNDU SELECTING A RANDOM UNIT SEQ 0251 
10655 sMLX4 23-Oct-1980 15:01:43 TOPS 
| 10656 ; SELECTING A RANDOM UNIT 23-0¢t-1980 14:57:05 PA:< 
| 19688 062714 004137 605202 RNDU: JSR R1,$SAVE4 : 5754 
| 720 023727 002012 000001 CMP LSUNIT,#1 : 5767 

10660 062726 001002 BNE 1$ 

10661 062730 005004 CLR R4 : LUN 5769 

10662 062732 000467 BR 6$ ; 5767 

10663 062734 004737 005256 1$: JSR PC,RN ; 5772 

10664 062740 042737 100000 005352 BIC #160000, RANDOM ; 5773 

10665 062746 013746 005352 MOV RANDOM, =(SP) ; 5774 

10666 062752 013746 002012 MOV LSUNIT,<(SP) 

10667 062756 004737 005070 JSR PC,BLS$MOD 

10668 062762 010037 005352 MOV RO,RANDOM 

10669 062766 013703 002012 MOV LSUNIT,R3 ; 5781 

10670 062772 005001 CLR R1 : COUNT 

10671 062774 000443 BR 4$ 

10672 062776 013702 005352 2s: MOV RANDOM,R2 ; 5782 

10673 063002 006202 ASR R2 

10674 063004 006202 ASR R2 

10675 063006 006202 ASR R2 

10676 063010 062702 032460 ADD #ORIVE .STATUS,R2 

10677 063014 010246 MOV R2,-(SP) 

10678 063016 013746 005352 MOV RANDOM, = (SP) 

10679 063022 042716 177770 BIC #177770, (SP) 

10680 063026 012746 000001 MOV #1,-(SP) 

10681 063032 005046 CLR -(SP) 

10682 063034 004737 004244 JSR PC ,BL$GT2 

10683 063040 062706 000010 ADD #16,SP 

10684 063044 005300 DEC RO 

10685 063046 001003 BNE 3$ 

10686 063050 013704 005352 MOV RANDOM, R4 > *,LUN 5785 

10087 063054 000415 BR 5$ ; 5786 

10688 063056 013746 005352 3$: MOV RANDOM, = (SP) ; 5789 

10689 063062 005216 INC (SP) 

10690 063064 013746 002012 MOV LSUNIT,-(SP) 

10691 063070 004737 005070 JSR PC ,BL$MOD 

10692 063074 010037 005352 MOV RO, RANDOM 

10693 063100 022626 CMP (SP)+,(SP)+ 

10694 063102 005201 INC R1 : COUNT 5781 

10695 063104 020103 4$: CMP R1,R3 > COUNT,* 

10696 063106 002733 BLT 2$ 

10697 063110 022626 5$: CMP (SP)+,(SP)+ F 5771 

10698 063112 010400 63: MOV R4,RO > LUN,* 5755 

10699 063114 000207 RTS PC : 5754 

10701 ; Routine Size: 65 words — , 

10702 : Maximum stack depth per invocation: 11 words 
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-RNDU SELECTING A RANDOM UNIT SEQ 0252 
| 10710 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
+ aa : TESTING RANDOM DATA 23-Oct-1980 14:57:05 — PA:<ROSEN>MLX4.BLI.1 (48) 
| 40713; 5796 XSBTTL ‘TESTING RANDOM DATA' 

10714 ; 5797 

10715 ; 5798 ROUTINE RANDI(REPEAT): NOVALUE = 

10716 ; 5799 BEGIN ‘!* 1 * START OF ROUTINE 

10717 ; 5800 

10718 ; 5801 +4 

10719 ; 5802 ' ROUTINE: RAND 1 (REPEAT) 

10720 ; 5803! 

10721 ; 5804 |! PURPOSE: TO TEST USING RANDOM DATA 

10722 ; 5805 ! 

10723 ; 5806 ! ARGUMENT: REPEAT = NUMBER OF TIMES TO EXECUTE THIS ROUTINE 

10724 ; 5807 : BEFORE RETURNING TO THE CALLER (OPTS). 

10725 ; 5808 ! 

10726 ; 5309 ! NOTE: THIS TEST CODE FOLLOWS THE SAME FLOW AS OPT3, 

10727 ; 5810 ! BUT USES A RANDOM DATA PATTERN. 

10728 ; 5811 ! 

10729 ; 5812 ! THE CODE FOR ‘RAND1" IN BRIEF: 

10730 ; 5813! 

10731 ; 5814 ! BEGIN 1. (START OF ROUTINE) 

10732 ; 5815 ! SAY ROUTINE IS RUNNING 

10733 ; 5816 ! INCR COUNT FROM 1 TO REPEAT 

10734 ; 5817 ! : BEGIN 2 (START OF REPEAT — FOR THE ROUTINE) 

10735 ; 5818 ! : GENERATE THE RANDOM PATTERN 

10736 ; 5819 ! : INCR LUN FROM 0 TO LAST 

10737 ; $820 ! : mitt ty 3 (START OF tNOGICAL UNIT SELECTION LOOP) 

10738 ; 2+) Ree TEST LOOP: 

10739 ; 5822 ! : : BEGIN 4 arts OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

10740 ; 5823! : IF UNIT IS ACTIVE 

10741 ; 5824 ! : : THEN 

10/42 ; 5825! : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

10743 ; 5826 =! : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 

10744 ; 5827 ' :: : : SECTOR = LOWEST 

10745 ; 5828 ! : : : : WHILE SECTOR LEQ HIGHEST DO 

10746 ; 5829 §$ ts 8822 tek 6 a OF SECTOR SELECTION LOOP) 

10747 ; 5830 ! : : : : : GET_WRDCNT 

10748 ; 233) | E£ERER2 -} “UP BUFFER POINTERS BEFORE TRANSFER 

10749 ; 5832 ' :: : : : WRITE 

10750 ; Sess * tees LOOK FOR ERRORS (IF DROP UNIT, By TESTLOOP) 

10751 ; 5834 !'! :: : : : CHOOSE WHETHER TO WRITE CHECK OR READ 

10752 ; 5835 ' :: : : : DO THE WRITE CHECK OR READ 

10753 ; 5836 ' : : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

10754 ; 5837 ' :: : : : CHANGE ores POINTERS AFTER TRANSFER 

10755 ; 5838 ' :: : : : UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 

10756 ; $839 ' :: Prd END 6 (END oF SECTOR SELECTION LOOP) 

10757 ; 5840 ! :: END 5 (END OF TEST Ay AN ACTIVE UNIT) 

10758 ; 5343 ! : : > END 4 (END OF TESTLOOP) 

10759 ; yo aan ae END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

10760 ; 5843 |! : END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 

10761 ; 5844 ! RETURN 

10762 ; 5845 ' END 1 (END OF ROUTINE) 

10763 ; 5846 !-- 
10764 ; 5847 


= 2 
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10766 ;MLX4 23-0¢t-1980 15:01:43 TOPS=20 Bliss=-16 V2(206) 
+3424 : TESTING RANDOM DATA 23-Oct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (48) 
10769 ; 5848 
| 10770 ; 5849 LABEL 
| 10771 ; 5850 LOOP; 
| 10772 ; 5851 
| 10773; 5852 LOCAL 
| 10774 ; 5853 WRDCNT, VALUE, OLDSEC, OLDCHN, SECTOR, PTR, COMMAND, DBL_VALUE; 
10775 ; 5854 
10776 ; 5855 
10777 ; 5856 ta fs Hh RTNSA); 
10778 ; 5857 *RAND1' 
10779 ; 5858 
10780 ; 5859 INCR COUNT Fag 1 TO .REPEAT DO 
10781 ; 5860 BEGIN !'* 2 * START OF REPEAT LOOP FOR THIS ROUTINE 
10782 ; 5861 GENS(); ieIRst 3 WORDS OF WBUFF ARE THE SEEDS 
10783 ; 5862 INCR LUN FROM 0 TO (.LS$UNIT - 1) DO 
10784 ; 5863 BEGIN !* 3 * START OF LocieaL UNIT SELECTION LOOP 
10785 ; 5864 LOOP: 
10786 ; 5865 BEGIN !* 4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 
10787 : 5866 IF .DRIVE_STATUSC.LUN) EQL ACTIVE 
10788 ; 5867 THEN 
10789 ; 5868 BEGIN '* 5 * START OF TEST FOR AN ACTIVE UNIT 
10790 ; 5869 L$LUN = .LUN; 
10791 ; 5870 WPTR = WBUFF; 
10792 : 5871 RPTR = RBUFF; 
10793 ; 5872 SECTOR = LOWEST; 
10794 ; 5873 WHILE .SECTOR Léa HIGHEST DO 
10795 ; 5874 BEGIN !* 6 * START OF SECTOR SELECTION LOOP 
10796 : 5875 WRDCNT = GET_WRDCNT(.SECTOR, HIGHEST) 
10797 : 5876 SET PTRS(.WRBCNT); 
10798 ; 5877 VALOE = WRITE(.LUN, .WRDCNT, .WPTR, .SECTOR); 
10799 : 5878 ‘+ 
10800 ; 5879 ' SEE HOW SUCCESSFUL THE WRITE WAS: 
10801 ; 5880 be 
10802 ; 5881 SELECTONE .VALUE OF 'SEE "SYSERR' FOR DEFINITION 
0803 ; 5882 SET ‘OF ERROR # CONTAINED IN ‘VALUE' 
10804 ; 5883 1): 
10805 ; 5884 BEGIN ‘'* 6A * RETRY ALLOWED 
10806 ; 5885 If RETRY(SIX,WRITE,.LUN,.WRDCNT,.WPTR,.SECTOR) NEQ 0 
10807 ; 5886 THEN 'THE RETRY FAILED -= SYSTEM FATAL ERROR 
10808 ; 5887 BEGIN 
10809 ; 5888 WHY _DROPTC.LUN) = CODE 
10810 ; 5889 ERRDF (5101,MSG1,0); Solin OPTION 5, RAND! ERROR 01 eee 
10811 ; 5890 DODU(.LUN); 
10812 ; 5891 LEAVE LOOP; ‘JUMP JUST BEYGND END OF BLOCK * 4 * 
10813 ; 5892 END; 
10814 ; 5893 END; ‘'* 6A ® 
10815 ; 5894 {2) : 
10816 ; 5895 BEGIN ‘* 6B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
10817 ; 5896 WHY DROPTC.LUN) = CODE_5; 
10818 ; 5897 ERRDE (3102. MSGI, Os Teeee OPTION 5, RAND] ERROR 02 were 
| 10819 ; 5898 DODU(.LUN); 
| 10820 ; 5899 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 


SEQ 0253 


mLXG 
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RNDU SELECTING A RANDOM UNIT 


sMLKG 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
; TESTING RANDOM DATA 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (48) 
5900 END; '* 6B * 

; 5901 (3) : 

; 5902 BEGIN ‘!* 6C * FATAL DRIVE ERROR -= NO RETRY ALLOWED 
5 5903 ERRDF(5103,MSG1,0);  !*#** OPTION 5, RAND1 ERROR 03 eeee 
; 5904 WHY _DROPTC.LUN] = CODE 6; 

; 5905 DODD(.LUN); 

; 5906 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 4 * 
: 5907 END; !* 6C * 

; 5908 

3 5909 TES; 

; 5910 

: 5911 COMMAND = CHOOSE(); 

; 5912 IF .COMMAND EQL READ 

; 5913 THEN 

: 5914 BEGI 

3 5915 PTR = .RPTR; 

: 5916 VALUE = READ(.LUN, .WRDCNT, .RPTR,.SECTOR); 

4 5917 END 

3 5918 E 

; 5919 BEGIN 

; 5920 PTR = .WPTR; 

; 5921 VALUE = CHECK(.LUN,.WRDCNT, .WPTR,.SECTOR);: 

; 5922 ND; 

; 5923 '¢ 

; eoee SEE HOW SUCCESSFUL THE OPERATION WAS: 

3 5926 SELECTONE .VALUE OF 'SEE "SYSERR' FOR DEFINITION 

; ras 44 ,! 'OF ERROR # CONTAINED IN ‘VALUE* 

; 5929 IF .COMMAND EQL READ 

3 5930 THEN 

: 5931 BEGIN 

; re of (oe. VALUE = DOUBLE_CHECK(.WPTR,.RPTR,.WRDCNT)) NEQ 0 
; 5934 BEGIN 

3 5935 SAYWHO(.LUN); 

; 5936 PRINTB(SAY! MSGS); 

; 5937 C LOGIC FAILED TO DETECT BATA ERROR' 

: 5938 PRINTBCFATI2A, ..DBL VALUE, .DBL_VALUE); 

3 5939 '*GOOD DATA: XXXRXX AT “LOCATION yvvyyy' 

; 5940 DBL VALUE = ,DBL_VALUE + BUFSIZ * 2; 

3 5941 PRIRTBCFATI 26, BBL_VALUE,.DBL_VALUE); 

3 5942 '"BAD DATA: PPPPPP AT LOCATION oada00" 

; 5943 WHY _DROPTC. Lm) = CODE 8; 

; 5944 ERRBF (5104,MSG1,0); CS ehet OPTION 5, RAND1 ERROR 04 eeee 
3 5945 DODU(.LUN); 

3 5946 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
3 5947 END; 

2 5948 END; 

3 5949 (1) : 

; 5950 BEGIN ‘'* 6D * RETRY ALLOWED 

: 5951 IF AE TRV(SIx. . COMMAND, .LUN, .WRDCNT,.PTR,.SECTOR) NEQ 0 


SEQ 0254 
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sMLX4 


TESTING RANDOM DATA 


23-0ct-1980 15:01:4 
23-0ct-1980 14:57:0 


ee cin RETRY FAILED == SYSTEM FATAL ERROR 


N 
WHY_DROPTC.LUN) = CODE 
ERRBF (5105, MSGI ,0); Yoles OPTION 5, RAND1 ERROR 05 eeee 


3 TOPS-20 Bliss-16 V2(206) 
5 PA:<ROSEN>MLX4.BLI.1 (48) 


DODUC.LUN) : 
LEAVE LOOP: ! JUMP JUST BEYOND END OF BLOCK * 4 « 
ne 's 6D * 
BEGIN !* 6€ * FATAL CONTROLLER ERROR <= NO RETRY ALLOWED 
WHY DROPTC.LUN) = CODE 5; 
ERRBF (5106, MSGI, 0);  Teeee OPTION 5, RAND] ERROR 06 *eee 
DODU(.LUN); 
LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
3° 'e 6E€ * 
BEGIN !* 6F * FATAL DRIVE ERROR -= NO RETRY ALLOWED 


(4) 


(5) 


ERRDF (5107,MSG1,0); teete OPTION 5, RAND] ERROR 07 *ee* 
WHY DROPTC. -LUN] = CODE _6; 


DOD0(.LUN); 

LEAVE LOOP: 'JUMP JUST BEYOND END OF BLOCK * 4 « 
END; '® 6F & 

BEGIN is 6G * UNRECOVERABLE DATA ERROR 

ERROR S108, MSG2,0);  !**** OPTION 5, RAND1 ERROR 08 eee 
WHY _DROPTC.LUN] = CODE_7; 

pop0(.LUN); 

LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
END; 'e 6G * 

BEGIN !* 6H * RECOVERABLE DATA ERROR 

ISOLATE (); 

IF .ERROUT 


THEN is eget ty . CHAN) ; 
pert = me! 
OLDCHN 
IF RETRY CONE, «COMMAND, .LUN, .WRDCNT, -PTR,.SECTOR) EQL 5 
_— EQL .OLDSEC) AND (.CHAN EQL .OLDCHN)) 
BEGIN 
IF .ERROUT 
THEN 
ERRHRD(5109,MSG4,0); !*t*** OPTION 5, RAND] ERROR 09 see8 
UP_HARD_COUNT(.LUN,.BOARD) ; 


BEGIN 
IF .ERROUT 
THEN 


SEQ 0255 
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RNDU SELECTING A RANDOM UNIT SEQ 0256 
10934 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 Vv2(206) 
1058 : TESTING RANDOM DATA 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (48) 
10937 ; 6004 ERRSOFT(5110,MSG3,0); ‘*ee* OPTION 5, RAND? ERROR 10 eee 
10938 ; 6005 UP_SOF1_COUNT(.LUN, .BOARD) ; 

10939 ; 6006 ENB 
10940 : 6007 ELSE 
10941 ; 6008 BEGIN 
10942 ; 6009 IF .ERROUT 
10943 ; 6010 THEN 
10944 ; 6011 ERRSOFT(5111,MSG3,0); ‘**e* OPTION 5, RAND! ERROR 11 eeee 
10945 ; 6012 UP_SOFT_COUNT(.LUN, .BOARD) ; 
10946 ; 6013 END; 
0947 ; 6014 END; ' 6H * 
10948 ;: 6015 
: 6016 TES; 
; 6018 WPTR = .WPTR + (.WRDCNT * 
; 6019 SECTOR = .SECTOR + (. enocet 356): 


10954 ; 6021 END; !* 6 * END OF SECTOR SELECTION LOOP 


10955 ; 6022 END; '® § © END OF TEST FOR AN ACTIVE UNIT 

10956 ; 6023 END; '* 4 * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 

10957 ; 6024 END; 'e® 3 * END OF LOGICAL UNIT SELECTION LOOP 

10958 ; 6025 END; '® 2 * END OF REPEAT LOOP FOR THIS ROUTINE 

10959 ; 6026 RETURN; 

19960 ; 6027 END; '® 1 * END OF ROUTINE 

10965 .SBTTL RAND1 TESTING RANDOM DATA 

10969 063116 004137 005222 RAND1: JSR R1,$SAVES : 5798 

10970 063122 162706 000020 SUB #20,SP 

10971 063126 012746 007306 MOV #RTNSA,-(SP) 3 5856 

10972 063132 012746 006514 MOV #SAY1,-(SP) 

10973 063136 012746 000002 MOV #2,-(SP) 

10974 063142 010600 MOV SP,RO ; SP,* 

10975 063144 104414 TRAP 14 

10976 063146 005066 000024 CLR 24(SP) ; COUNT 5859 

10977 063152 000137 064774 JMP 308 

10978 063156 004737 036710 1$: JSR PC,GENS ; 5861 
063162 013766 002012 000010 MOV LSUNIT,10(SP) : 5862 
063170 005066 000006 CLR 6(SP) > LUN 

10981 063174 000137 064760 JMP 29% 

10982 063200 0166900 000006 23: MOV 6(SP),RO ; LUN,* 5866 

10983 0632 006200 ASR RO 
0632 006200 ASR RO 

10985 063210 006200 ASR RO 
0632 062700 032460 ADD #DRIVE. STATUS, RO 

10987 063216 010046 MOV RO,-(SP) 

10988 063220 016646 000010 MOV 10(SP) ,-(SP) ; LUN,* 


—_—_——_—__—_—__———— 
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/RAND1 TESTING RANDOM DATA SEQ 0257 
10990 sMLX4 23-0ct-1980 15:01:43 TOPS 
244 : TESTING RANDOM DATA 23-0ct-1980 14:57:05 PA:< 
10993 063224 042716 177770 BIC #177770, (SP) 
10994 063230 012746 000001 MOV #1,-(SP) 
10995 063234 005046 CLR -(SP) 
10996 063236 004737 004244 JSR PC ,BL$GT2 
10997 063242 062706 000010 ADD #i6,SP 
10998 063246 005300 DEC RO 
10999 063250 601143 BNE 7$ 
11000 063252 016637 000006 002074 MOV 6(SP),LSLUN ; LUN,* 5869 
11001 063260 012737 010706 030706 MOV #WBUFF ,WPTR : 5870 
11002 063266 012737 020706 030710 MOV #RBUFF,RPTR ; 5871 
11003 063274 016601 000006 MOV 6(SP),R1 : LUN,* 5872 
11004 063300 006301 ASL R1 
11005 063302 016104 032476 MOV LOW.SECT(R1) 84 : *, SECTOR 
11006 063306 020461 032516 3$: CMP R4,TOP.SECT(R1) : SECTOR,* 5873 
11007 063312 003122 BGT 7$ 
11008 063314 010446 MOV R4,=(SP) : SECTOR,* 5875 
11009 063316 016146 032516 MOV TOP. SECT(R1),-(SP) 
11010 063322 004737 044034 JSR PC,GET.WRDCNT 
11011 063326 010003 MOV RO,R3 : *,WRDCNT 
11012 063330 010316 MOV R3, (SP) ; WROCNT,* 5876 
11013 063332 004737 043770 JSR PC, SET.PTRS 
11014 063336 016616 000012 MOV 12(SP), (SP) : LUN,* 5877 
11015 063342 010346 MOV R3,-(SP) ; WROCNT,* 
11016 063344 013746 030706 MOV WPTR,=(SP) 
11017 063350 01044 MOV R4,=(SP) : SECTOR,* 
11018 063352 004737 042246 JSR PC WRITE 
11019 063356 010005 MOV RO,RS ; *, VALUE 
11020 063360 020527 000001 CMP R5,#1 : VALUE,* 5881 
11021 063364 001035 BNE 4$ 
11022 063366 012746 000006 MOV #6,-(SP) ; 5885 
11023 063372 012746 042246 MOV #WRITE,-(SP) 
11024 063376 016646 000024 MOV 24(SP),-(SP) : LUN,* 
11025 063402 010346 MOV R3,-(SP) : WRDCNT,* 
11026 063404 013746 030706 MOV WPTR,=(SP) 
11027 063410 010446 MOV R4,-(SP) : SECTOR,* 
11028 063412 004737 043046 JSR PC, RETRY 
11029 063416 062706 000014 ADD #i4,sP 
11030 063422 005700 ; TST 
11031 063424 001456 BEQ 
11032 063666 016602 000020 MOV 20(SP),R2 ; LUN,* 5888 
11033 063432 112762 000004 032464 MOVB #4,WHY.DROPT(R2) 
11034 063660 104455 : TRAP 55 ; 5889 
11035 06344 O11733 WORD 11755 
11036 063444 010512 .WORD SG1 
11037 063466 000000 WORD 0 
11038 bom 016600 000020 MOV 20(SP),RO ; LUN,* 5890 
11039 063454 104451 TRAP 51 
11040 063456 000436 BR 6$ ; 5891 
11041 063460 020527 000002 4$: CMP R5,#2 : VALUE,* 5881 
11042 063466 001015 BNE 5$ 
1104 06 3666 916806 000020 MOV 20(SP),R2 ; LUN,* 58% 
11044 0634 112762 000005 032464 MOVB #5, WHY.DROPT(R2) 


f--- SE 
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—— 


2222 
oa 


DONAVSWN "OO OOn 


o ooooo 
BAALSZRALS 


SEFEZEE 
SRESSSESSESS ESOL SSSSS SSS 


~ 
WWAWAAWAAAAAAWAAANAANA 
PAPA AAAAMAAMMAVIVIVIUIUT 


wMuMwvi 
Sees rus weuusvee coe ees 


sz 


eek a ee a at et es ot = ss Ss SF SS Ss Ur SS Ss SS Ss SS Ls SS ss SS SS Ss SS Ss Ss SY ss SS SS SS SS 
ee ee Le Le eee eee 


3 
07 3 
071 063 
072 
073 
074 
075 063612 
076 063616 
077 063620 
U78 063624 
079 063626 
080 063632 
081 063634 
082 063642 
083 063646 
084 063650 
os sat 
087 063662 
088 063664 
089 063666 
090 063678 
Bt Sib 
os Sats 
094 $48 
ss Sari 
$s Se 
098 0637246 
099 0637. 
100 0637 


MNES NA —-OOwvnu' 


Sear soSess 


oooo 
a 
wo 

~ 


NF 
Ws & 
UNOAO 


ooocoo 
a 
ww 
$ 


es 


000020 
000003 
000020 
000006 


000012 


032464 


000030 


000030 


MLX4 


5$: 


6$: 
8S: 


— 
nN 
PR 
oo oe 


TESTING RANDOM DATA 
55 

11756 

MSG) 


0 

20(SP) ,RO 
51 

6$ 

R5 #3 

8$ 

55 

11757 
MSG! 
20(SP) ,R2 
#6 ,WHY .DROPT(R2) 
R2,RO 

51 

#12,SP 
13$ 


PC ,CHOOSE 
+ Salle 


RO, #READ 
9$ 


R2 
RPTR,30(SP) 
20(SP) ,-(SP) 
R3,-(SP) 


WPTR, S0(SP) 
20(SP) ,-(SP) 
R3,-(SP) 


RO. 44(SP) 


11 
30(SP),-(SP) 
PC, SAYWHO 


LUN,* 


VALUE ,* 


* , COMMAND 
COMMAND, * 
*, PTR 
LUN,* 
WRDCNT,* 
SECTOR,* 


« PTR 
LUN,* 
WRDCNT,* 
SECTOR,* 
* VALUE 


WROCNT,* 


* ,DBL . VALUE 
LUN,* 


@o 
oo 


SEQ 0258 


743 TOPS 
:05 


PA:< 
5897 


5898 


5899 
5881 


5903 


5935 


' 


-—-——_———__ - _—— 
| 
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|RAND1 TESTING RANDOM DATA SEQ 0259 
11102 sMLXG 23-0ct-1980 15:01:43 TOPS 
Yt ; TESTING RANDOM DATA 23-0ct-1980 14:57:05 PA:< 
11105 063736 012716 010640 MOV #MSG5, (SP) : 5936 
11106 063742 012746 006514 MOV #SAY1,-(SP) 

11107 063746 012746 000002 MOV #2,°(SP) 

11108 063752 010600 MOV SP ,RO ; SP, 

11109 063736 104414 TRAP 14 

11110 063756 016616 000052 MOV 52(SP), (SP) ; DBL.VALUE,* 5938 

11111 063762 017646 00005 MOV a52(SP),=(SP) ; DBL.VALUE,* 

11112 063766 012746 00633 MOV #FMT12A,-(SP) 

11113 063772 012746 000003 MOV #3,-(SP) 

11114 063776 010600 MOV SP,RO : SP,* 

11115 064000 104414 TRAP 14 

11116 064002 062766 010000 000060 ADD #10000 ,60(SP) ; *,DBL.VALUE 5940 

11117 064010 016616 MOV 60(SP), (SP) ; DBL.VALUE,* 5941 

11118 064014 017646 0 MOV @60(SP),-(SP) ; DBL.VALUE,* 

11119 064020 012746 006400 MOV #FMT12B,-(SP) 

11120 064024 012746 000003 MOV #3,-(SP 

11121 064030 010600 Vv ; ; SP, 

11422 064032 104414 TRAP 14 

11123 064034 016602 000052 MOV 52(SP),R2 ; LUN,* 5943 

11124 064040 112762 000010 032464 MOVB #10,WHY.DROPT(R2) 

11125 064 104455 TRAP 55 ; 5944 

11126 064050 011760 .WORD 11760 

11127 064052 010512 .WORD MSG1 

11159 ener 016600 000052 nove 2(SP),RO LUN 5945 
000000 . * ; 

11180 Seedes fOekSt TRAP 3 | 

11131 064 062706 000044 ADD #44,SP : 5946 

11132 064070 000521 13$: BR 19% 

11133 064072 020527 000001 148: CMP R5,#1 : VALUE,* 5926 

11134 064076 001035 BNE 15$ 

11135 064100 012746 000006 MOV #6,-(SP) ; 5951 

11136 064104 016646 000044 MOV 44(SP),-(SP) : COMMAND, * 

11137 064110 016646 000034 MOV 34(SP) ,-(5P) 3 LUN,* 

11138 064114 010346 MOV -(SP) : WRDCNT,* 

11139 064116 016646 000050 MOV 50(SP) ,-(SP) : PTR,* 

11140 064122 010446 MOV R4,- ; SECTOR,* 

11141 bose 004737 043046 JSR PC RETRY 

11148 064130 062706 000014 ADD #id.se 

1114 eettr 005700 TST 

11144 0661 001655 BEQ 118 

11145 064140 016602 000030 MOV 30(SP),R2 > LUN,* 5954 

11146 064144 112768 000004 032464 MOVB #4,WHY.DROPT(R2) 

11147 064152 10445 TRAP 55 ; 5955 

11148 064136 011761 .WORD 11761 

ate 156 010512 WORD MSG1 

11151 etre: He's] 000030 v (SP),RO ; LUN,®* 5955 

1138 0641 104451 TRAP 1 

11153 0641 000457 BR 18% : $957 

11154 064172 020527 000002 15$: CMP R5,#2 : VALUE,* 5926 

11155 064176 1015 BNE 16 

11156 064200 016602 000030 MOV 30(SP),R2 ; LUN,* 5962 





rt 
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MILKS 


Soronss 
: 


3s 
SPREE 


mh 
o 
~ 


ern 


/RAND1 TE 
11158 
11159 
11160 
11161 064204 
11168 064212 
1116 gene's 
11164 064216 
11165 064220 
11166 064222 
11167 064226 
11168 064230 
11169 064232 
11170 064236 
11171 064240 
11172 064242 
11173 064244 
11174 064246 
11175 064250 
11176 064254 
11177 064262 
11178 064264 
11179 064266 
11180 064270 
11181 064274 
11182 064276 
11183 064302 
AE 064304 
11186 pee 3%8 
11187 064312 
11188 064316 
11189 064324 
11190 064326 
11191 064330 
a B 064334 
11193 064340 
11194 064344 
11195 petees 
11196 06435 
11197 064360 
11198 064362 
11199 rete, 
11 064 
11 064372 
11 + of Lo 
11 064376 
11 
11 
11 
11 
11 
11 
11 
11 
1 


rorore 


3 2 st 
nu=—o 


Aun 
NWN NN —OOnrrvut 


oo-o-oo0o°o0— 
Se8eencs 
un 


es 
Vn know 


oo— 

== 

o— 4 
NEAGTVSZSRNS 


as 


000005 032464 


000030 


000003 


000030 
000 


035212 
000030 
000007 


000022 
064754 
000005 
035212 
000001 


146040 


177700 


goes 
00000 


145774 


sMLX4 


16$: 


17$: 


18$: 
208: 


000034 21%: 


TESTING RANDOM DATA 
| taint cn 


11762 
MSG1 


0 
go(SP) 20 


R5 #3 
1 


0 
30(SP) ,R2 
#6 ,WHY .DROPT(R2) 
R2,RO 


18% 
R5 #4 


20 
PC, ISOLATE 
55 


11764 
MSG2 


30(SP) ,R2 
1 + cama 


#22,SP 
8$ 
R5 #5 
7 


PC, ISOLATE 
#1 ,ERROUT 


SM. -REG*KS Re 


R 
#177700,R2 
R2,-(SP5 
#FAT10B,-(SP) 
#2.=(SP) 


14 
#6,SP 
QML .REG*44 , 34(SP) 


; LUN,* 


; VALUE o* 


; LUN,* 
; LUN,* 


; WALUE,* 


; LUN,* 
; LUN,* 


; VALUE,* 


; SP.e 


; *,OLDSEC 


ow 


SEQ 0260 


:43 TOPS 
:05 


PA:< 


5963 


~ $964 


5965 
5926 


5969 


5970 
5971 


5972 
5926 


5976 
5977 


5978 | 
5979 
5980 


5926 


5984 
5985 
5986 


5983 


| 
i 
o 
IR 
} 
| 
i 
' 
' 
| 


MLXG 





& 
* 
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Oo 
nm 


WN | 9 OONG UFWN “OO DONOUS 
= 
= 
4 vw 
o 


PERSP TSS S SSCS SSS S ESSE SESS 


WhoTn 
SOAONASwWO 


rrr 
WAAMAMAMAV MAUI UIT 


AOU LE & 


VOGENOFOS 


WN EERE Ew 


on 


mee ee ed a ad ad od = as 
o 
ae 
= 


ee ed a ad od 2 = 8 


MMP POPOf~orfnoforny 
SYSVRATUXS 
ONO UE WN" 


MMYVOVvNT 
Ono 
o 
ress 
oOo 


64 
65 064652 
66 4 


ee a ee ot a = Oo ws et = 
eee et nd oe td et = 


ta 
33 
ERY 


017702 
2 


z 
NEN 

w 

nM 


145764 


177700 


000034 
000050 
043046 
000014 
900005 
145674 


000036 
145656 


177700 


000001 


000030 
032360 
035302 
000001 


000001 
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000034 


002260 


002260 


002260 


sMLX4 


228: 


238: 


248: 


TESTING RANDOM DATA 
+ aan i tine 


R 
#177700,R2 
R2,36(SP) 
#1,-(SP) 
44(SP) ,-(SP) 
34 (SP) ,=(SP) 


R3,-(SP) 
8 ped Oo 


QML .REG+44 , 34(SP) 
3$ 


2 
36(SP) ,RO 
Yanai 


R 
#177700, R2 


A 
23$ 
#1 ,ERROUT 
228 
56 


11765 
MSG4 


0 

30(SP) ,-(SP) 
BOARD ,~(SP) 

PC ,UP. HARD. COUNT 
26$ 


#1 ,ERROUT 


25$ 


57 
11766 
MSG3 


25% 
#1 ,ERROUT 
338 


* ,OLDCHN 
COMMAND , * 
* 


*,OLDSEC 
OLDCHN,* 


; LUN,* 


SEQ 0261 


TOPS 
PA:< 


5989 


5990 


5992 


5995 
5997 
5998 
5992 


6002 
6004 


6005 


6009 


6013 


Dz 7 


—s- 


' 


MLXG 


a 
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: 064666 


~ ee 
Nou 

oS 

o 
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~m 
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Ooo 
oo 
SSS 
sf 
a) 
—o 
or 


Ww 
Oo 
oa 
te 
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~m 


See 
a 

_ 
Sno 


uw 


88 064742 
89 sett) 


8 


SBISFZ 
SRESSE 
Vow eo 
Sse 
oO FOS 


kk kd ds od 
wi 
o 
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> 


8 kk a a as oh oh 
WAWAY AUR PPP PPE Po No NOP M Po Pe fone f—ofpofpo nope ferfonoefyfpofrononorp 


-So00°0 
oOoownN— 


000207 


6028 


030706 
030706 


000400 
005056 
000024 


06 
000006 


063200 
000024 
000024 


063156 
000026 


000010 


000044 
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26$: CMP 
27$: MOV 


28$: INC 
298: CMP 


30$: INC 


31$: ADD 


; Routine Size: ; 
; Maximum stack depth per invocation: 


TESTING RANDOM DATA 


11767 
MSG3 
0 


30(SP) ,=(SP) 
BOARD ,~(SP) 
PC ,UP.SOFT. COUNT 
we. 


6(SP) 
6(SP),10(SP) 
30$ 

24 (SP) 

24 (SP) ,44(SP) 
31$ 

1$ 

#26,SP 

PC 


482 words 


LUN,* 
WRDCNT,* 


WRDCNT,* 


COUNT 
COUNT ,REPEAT 


23-0ct-1980 1 
23-0c t-1980 


15:01 
14:57 


SEQ 0262 


743 
705 


TOPS 
PA:< 
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| 11312 =MLX4 23-0ct-1980 15:01:43 
aigiz ¢ : TESTING RANDOM DATA & WORD COUNTS 23-0ct-1980 14:57:05 
| 11315 ; 6029 ZSBTTL ‘TESTING RANDOM DATA & WORD COUNTS' 

11316 ; 6030 

11317 ; 6031 ROUTINE RAND2(REPEAT): NOVALUE = 

11318 ; 6032 BEGIN !* 1 * START OF ROUTINE 

11319 ; 6033 

11320 ; 6034 !+4+ 

11321 ; 6035 ! ROUTINE: RAND2 (REPEAT) 

11322 ; 6036 ! 

11323 ; 6037 |! PURPOSE: TO TEST ALL UNITS INA eens FASHION, BUT 

11324 ; 6038 ! USING RANDOM WORD COUNTS 

11325 ; 6039 |! 

11326 ; 6040 |! ARGUMENT: REPEAT = NUMBER OF TIMES TO EXECUTE THIS ROUTINE 

a : rere BEFORE RETURNING TO THE CALLER (OPTS). 

11329 ; 6043! NOTE: SINCE ONLY THE WORD COUNTS AND THE DATA ARE RANDOM, 

11330 ; 6044 =! THE OTHER TRANSFER ete ays BE SET UP BY THIS 

11331 ; 6045 ! ROUTINE. THESE VALUES INCLUDE: 

11332 ; 6046 |! THE LUN, SECTOR AND burton POINTERS. 

11333 ; 6047 ! 

11334 ; 6048 ! THE CODE FOR ‘RAND2' IN BRIEF: 

11335 ; 6049 ! 

11336 ; 6050 ! BEGIN 1 (START OF ROUTINE) 

11337 ; 6051 ! SAY ROUTINE IS RUNNING 

11338 ; 6052 ! INCR COUNT FROM 1 TO REPEAT 

11339 ; 6053 ! : BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE) 

11340 ; 6054 ! : INCR LUN FROM 0 TO LAS 

11341 ; 6055 ! : : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

11342 ; 6056 |! : : GENERATE THE RANDOM PATTERN 

11343 ; 6057 ' : : TESTLOOP: 

11544 ; 6058 |! : : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

11345 ; 6059 ! : : : IF UNIT IS ACTIVE 

11346 ; 6060 ! : THEN 

11347 ; 6061 ! : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

11348 ; 6062 | : : : : SECTOR = LOWEST 

11349 ; 6063 ! : : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 

11350 ; 6064 ! : : : : WHILE SECTOR LEQ HIGHEST DO 

11351 ; 6065 ! :: : : : BEGIN . (START OF A M+ THROUGH ALL SECTORS) 

11352 ; 6066 ' : : : : : CHOOSE A RANDOM WORD COUNT 

11353 ; 6067 ' : : : : : SET UP BUFFER POINTERS BEFORE TRANSFER 

11354 ; 6068 ! : : : : : CALCULATE NEXT STARTING oat toe (BASED ON WORD COUNT) 

11355 ; 6069 ! :: : : : IF NEXT STARTING SECTOR GTR HIGHEST 

11356 ; 6070 ! : : : : : : THEN ADJUST THE WORD COUNT & NEXT SECTOR SO THEY FIT 

11357 ; sory | © 822823 WITHIN THE TESTABLE SECTOR LIMITS 

11358 ; 6072 !' :: : : : WRITE 

11359 ; 6073 !'! : : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

11360 ; 6074 ! :: : : : CHOOSE WHETHER TO WRITE CHECK OR READ 

11361 ; 6075 !' : : : : : DO THE WRITE CHECK OR READ 

11362 ; 6076 ! : : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

11363 ; 6077 ' : : : : : SECTOR = THE CALCULATED NEXT STARTING SECTOR 

11364 ; 6078 ' :: : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

11365 ; 6079 ! :: : : : END 6 (END OF A PASS THROUGH ALL nye 

11366 ; 6080 !' : : : : END 5 (END OF TEST FOR AN ACTIVE UNIT 


r- 


TOPS=20 Bliss-16 vetcve) 


PA:<ROSEN>MLX4.3LI. 


(49) 


SEQ 0263 


neg eae 
z2z 


SSS 
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[RAND| TESTING RANDOM DATA — SEQ 0264 
| 11368 ;MLX4 23-Oct-1980 15:01:43 TOPS=20 Bliss-16 a 206) 
| 11369 ; TESTING RANDOM DATA & WORD COUNTS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (49) 


371 ; 6081 ! : : : END 4 (END TESTLOOP) 

372 6082 | : : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 
373 6083 ' : END \ (END OF REPEAT LOOP FOR THIS ROUTINE) 

374 6084 i RETURN % 

375 6085 | END 1 (END OF ROUTINE) 

376 6086 i- 

377 6087 

378 6088 LOCAL 

379 6089 WRDCNT, SECTOR, NEXT_SECT, VALUE, OLDSEC, OLDCHN, 
380 6090 PTR, COMMAND, DBL_VACUE; 

381 6091 

382 6092 LABEL 

383 6093 LOOP; 

384 6094 

385 6095 PRINTB(SAY1 ,RTNSB) ; 

386 6096 *RAND2" 

387 6097 INCR COUNT FROM 1 TO .REPEAT D 

88 6098 BEGIN !* 2 * STAR T OF REPEAT LOOP FOR THIS ROUTINE 


co 
Oo 


6099 INCR LUN FROM_O TO (.LSUNIT - 1) DO 

6100 BEGIN !* 3 * START OF LOGICAL UNIT SELECTION LOOP 

6101 GENS (); 'RANDOM DATA PATTERN 

6102 LOOP : 

6103 BEGIN !* 4 * START OF THE LOOP FOR COMPLETELY TESTING 1 UNIT 
6104 is npanteoteneaemaae EQL ACTIVE 


6106 BEGIN !* 5 * START OF TEST FOR AN ACTIVE UNIT 


6108 SECTOR = COowesT; 
6109 WPTR = WBUFF 
6110 RPTR = RBUF 
WHILE Ser roR LEQA HIGHEST DO 
BEGIN '* 6 * START OF A PASS THROUGH ALL SECTORS 
WRDCNT = RNDWC(); ‘EXPECT VALUE BETWEEN 1 AND BUFSIZ 
SET PTRS(.WRDCNT); 
"ia SECT = .SECTOR + (.WRDCNT/256); 
SECTOR EQL .NEXT SECT 
thei NEXT SECT = .NEXT_SECT + 1; 


ooocooooouovon 


RS 


kk kk hh od ht ts 

kk td 8 oh tt 
SS 
w 


SREP F AWWA 


07 : 


Se Oe Be Oe Be Oe Oe Be Be Be Be Be Se Se Se Be Be He Be Be He Se Ge Oe Oe Oe ee Ge Oe e Oe Se Ge Ge Ge Ge Be Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Ge Gee 
o 
— 
oO 
GN 
rc 
bad 
= 
Cc 
2 
' 
. 
td 
Cc 
Zz 


6111 
6112 
6113 
6114 
6115 
6116 
6117 
11408 6118 IF .NEXT_SECT GTRA “HIGHEST 
11409 6119 THEN 
11410 6120 BEGIN 
11411 6121 WRDCNT = 256 * (HIGHEST = .SECTOR + 1); 
11412 6122 NEXT_SECT = HIGHEST ¢ 1; 
11413 6123 : 
11414 6124 
11415 6125 VALUE = WRITE (.LUN, .WRDCNT, .WPTR,.SECTOR); 
11416 6126 ' 
11417 6127 P SEE HOW SUCCESSFUL THE WRITE WAS: 
11418 6128 te 
11419 6129 SELECTONE .VALUE OF 'SEE "SYSERR’ FOR DEFINITION 
11420 6130 SET ‘OF ERROR # CONTAINED IN ‘VALUE’ 
11421 6131 (1) : 
11422 6132 BEGIN !'* 6A * RETRY ALLOWED 
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RAND1 TESTING RANDOM DATA 
11424 ;MLK4 23-0ct-1980 15: Ot: 43 TOPS=20 Bliss-16 V2(206) 
ieee : TESTING RANDOM DATA & WORD COUNTS 23-0¢t-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (49) 
11427 ; 6133 IF RETRY(SIX,WRITE,.LUN, .WROCNT,.WPTR,.SECTOR) NEQ 0 
| 11428 ; 6134 THEN '!THE RETRY FAILED == SYSTEM FATAL ERROR 
116429 ; 6135 BEGIN 
/ 11430; 6136 WHY DROPTC.LUN] = CODE_4 
| 11431; 6137 ERRBF (5201,MSG1,0); Teeee OPTION 5, RAND2 ERROR 01 #ee* 
11432 ; 6138 DODU(.LUN); 
11433 ; 6139 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
11434 ; 6140 END; 
11435 ; 6141 END; 'e 6A * 
| 11436 ; 6142 (2) : 
11437 ; 6143 BEGIN !* 6B * ATAL CONTROLLER ERROR == NO RETRY ALLOWED 
11438 ; 6144 WHY DROPTC.LUN] = COD et 5; 
11439 ; 6145 ERRBF(5202,MSG1,0);  Teeee OPTION 5, RAND2 ERROR 02 eee 
11440 ; 6146 DODU(.LUN); 
11441 ; 6147 LEAVE LOOP; ' JUMP JUST SEYOND END OF BLOCK * 4 « 
11442 ; 6148 END; 'e 6B * 
11443 ; 6149 (3) : 
11444 ; 6150 BEGIN !* 6C * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
11445 ; 6151 ERRDF(5203,MSG1,0);  ‘*t** OPTION 5, RAND2 ERROR 03 *ee* 
11446 ;: 6152 WHY _DROPTC.LUN] = CODE_6; 
11447 ; 6153 pODO(.LUN); 
11448 ; 6154 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
11449 ; 6155 END; !* 6C * 
11450 ; 6156 
11451 ; 6157 TES; 
11452 ; 6158 
11453 ; 6159 COMMAND = CHOOSE(); 
11454 ; 6160 IF .COMMAND EQL READ 
11455 ; 6161 THEN 
11456 ; 6162 BEG 
11457 ; 6163 PTR = .RPTR; 
11458 ; 6164 VALUE = READ(.LUN, .WRDCNT, .RPTR,.SECTOR); 
11459 ; 6165 N 
11460 ; 6166 
11461 ; 6167 N 
11462 ; 6168 PTR = .WPTR 
11463 ; 6169 VALUE = CHECK (. LUN, .WRDCNT, .WPTR,.SECTOR); 
11464 ; 6170 END; 
11465 ; 6171 '¢ 
11466 ; 6172 ' SEE HOW SUCCESSFUL THE OPERATION WAS: 
11467 ; 6173 '- 
11468 ; 6174 SELECTONE .VALUE OF 'SEE "SYSERR' FOR DEFINITION 
11469 ; 6175 SET 'OF ERROR # CONTAINED IN ‘VALUE' 
11470 ; 6176 (0) : 
| 11471 : 6177 IF .COMMAND EQL READ 
11472 ;: 6178 THEN 
11473 ; 6179 BEGIN 
11476 ; 6180 IF (DBL_VALUE = DOUBLE_CHECK(.WPTR,.RPTR,.WRDCNT)) NEQ 0 
11475 ; 6181 THEN 
| 11476 ; 6182 BEGIN 
11477 ; 6183 SAYWHO(.LUN); 
| 11678 ; 6184 PRINTB(SAY1,@SG5); 


SEQ 0265 


Dz 
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RAND1 TESTING RANDOM DATA SEQ 0266 
11480 ;MLK4 23-0¢t-1980 15:01:43 TOPS=20 Bliss-16 ve\ 206) 
bh ; TESTING RANDOM DATA & WORD COUNTS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (49) 
11483 ; 6185 '"ECC LOGIC FAILED TO DETECT BATA ERROR' 

| 11686 ; 6186 PRINTB(FMT12A,..D0BL_VALUE,.DBL_VALUE); 

/ 11685 ; 6187 hee | DATA: eit AT "LOCATION. vyvyyy' 

| 11486 ; 6188 LUE = L_VALUE + BUFSIz . 2: 

| 19687 ; 6189 PRIRTRCFRT? 26, BBL V ALUE, .DBL_VALUE); 

| 11488 ; 6190 '"BAD DATA: PPppPP AT *OEATION” 00d000' 

11489 ; 6191 WHY DROPTC. LUND = CODE_8; 

| 11490 ; 6192 ERRBF (5204, MSGI, Ov Teese OPTION 5, RAND2 ERROR 04 tee 
11491 ; 6193 DODU(.LUN); 

| 41492 ; 6194 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

11493 : 6195 END; 

11494 ; 6196 END; 

11495 ; 6197 (1) : 

11496 : 6198 BEGIN !* 6D * RETRY ALLOWED 

11497 ; 6199 IF RETRY(SIX,.COMMAND,.LUN, .WRDCNT,.PTR,.SECTOR) NEQ 0 
11498 ; 6200 THEN 'THE RETRY FAILED == SYSTEM FATAL ERROR 

11499 ;: 6201 BEGIN 

11500 ; 6202 WHY DROPTC.LUN] = CODE_4 

11501 ; 6203 ERRBF (5205,MSG1, 0); Tesee OPTION 5, RAND2 ERROR 05 eee 
11502 ; 6204 DODU(.LUN); 

11503 ; 6205 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
11504 ; 6206 END; 

11505 ; 6207 END; '® 6D * 

11506 ; 6208 (2) : 

11507 ; 6209 BEGIN !* 6€ * AL CONTROLLER ERROR -- NO RETRY ALLOWED 
11508 ; 6210 WHY _DROPTC.LUN] = COD e 3 

11509 ; 6211 ERRBF (5206,MSG1, 0); Teeee OPTION 5, RAND2 ERROR 06 *e#e* 
11510 ; 6212 DODU(.LUN); 

11511 : 6213 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
11912 ; 6214 END; !* 6€ * 

11513 ; 6215 (3) : 

11514 ; 6216 BEGIN ‘* 6F * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
11515 ; 6217 ERRDF(5207,MSG1,0); !**** OPTION 5, RAND2 ERROR 07 teee 
11516 ; 6218 WHY DROPTC.LUN] = CODE_6; 

11517 ; 6219 pODD(.LUN); 

11518 ; 6220 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
11519 ; 6221 END; 'e 6F *® 

11520 ; 6222 {4] : 

11521 ; 6223 BEGIN . 6G * UNRECOVERABLE DATA ERROR 

11522 ; 6224 ISOLA 

11523 : 6225 bRabe C5208, MSG2,0);  !*e** OPTION 5, RAND2 ERROR 08 *eee 
11524 ; 6226 WHY DROPTC.LUN) = CODE_7; 

11525 ; 6227 pODD(.LUN); 

11526 ; 6228 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
11527 ; 6229 END; 'e 66 * 

11528 ; 6230 (5] : 

11529 ; 6231 BEGIN '* 6H * RECOVERABLE DATA ERROR 

11530 ; 6232 ISOLATE (); 

| 11531 ; 6233 IF .ERROUT 

| 19532 ; 6234 THEN PRINTRCERT OB, -CHAMD ; 

| 115933; 6235 iT 

| 191534; 6236 OLDSEC = .MLEL; 


paz 
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RAND1 TESTING RANDOM DATA SEQ 0267 
11536 3;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
A123 : TESTING RANDOM DATA & WORD COUNTS 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (49) 
11539 ; 6237 OLDCHN = 
11540 ; 6238 IF RETRY CONE. NEOMMAND, LUN, .WRDCNT. «PTR, «SECTOR? EQL 5 
11541 ; 6239 THEN 
11542 ;: 6240 IF ((.MLEL EQL .OLDSEC) AND (.CHAN EQL .OLDCHN)) 

11543 ; 6241 THEN 

11546 ; 6242 BEGIN 

11545 ; 6243 IF .ERROUT 

11546 ; 6244 THEN 

11547 ; 6245 ERRHRD(5209,MSG4,0); !**#* OPTION 5, RAND2 ERROR 09 see« 
11548 : 6246 UP_HARD_COUNT(.LUN,.BOARD) ; 

11549 ; 6247 ENB 

11550 ; 6248 ELSE 

11551 ; 6249 BEGIN 

11552 ; 6250 IF .ERROUT 

11553 ; 6251 THEN 

11554 ;: 6252 ERRSOFT(5210,MSG3,0); !**** OPTION 5, RAND2 ERROR 10 *ee* 
11555 : 6253 UP_SOFT_COUNT(.LUN, BOARD); 

11556 ; 6254 ENB 

11557 ; 6255 ELSE 

11558 ; 6256 BEGIN 

11559 ;: 6257 IF .ERROUT 

11560 ; 6258 THEN 

11561 ; 6259 ERRSOFT(5211,MSG3,0); !**** OPTION 5, RAND2 ERROR 11 eeee 
11562 ; 6260 UP_SOFT_COUNT(.LUN, .BOARD); 

11563 ; 6261 END; 

11564 ; 6262 END; ‘!* 6H * 

11565 ; 6263 

11566 ; 6264 TES; 

11567 ; 6265 

11568 ; 6266 SECTOR = NEXT. SECT; 

11569 ; 6267 WPTR = .WPTR + 2; 

11570 ; 6268 END; !* s * END OF A PASS THROUGH ALL SECTORS 

11571 ; 6269 END; '* 5 ® END OF TEST FOR AN ACTIVE UNIT 

11572 : 6270 END; '* 4 * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 

11573 ; 6271 END; | '* 3 * END OF LOGICAL UNIT SELECTION LOOP 

11574 ; 6272 END; !* 2.* END OF REPEAT LOOP FOR THIS ROUTINE 

11575 ; 6273 RETURN; 

A 4 3 6274 END; '* 1 * END OF ROUTINE 

11581 .SBTTL RAND2 TESTING RANDOM DATA & WORD COUNTS 

11585 065022 004137 005222 RAND2: JSR R1,$SAVE5 3 6031 
11586 065026 162706 000022 SUB #22,SP 

11587 06 012746 007314 MOV #RTNSB,-(SP) : 6095 
11588 065036 012746 006514 MOV #SAY1,-(SP) 

11589 065042 012746 000002 MOV #2,-(SP) 

11590 065046 010600 MOV SP,RO ; SP, 
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sMLX4 


000016 
066642 
002012 000022 1%: 


066630 
036710 23: 


032460 
177770 
000001 
004244 
000010 
002074 


032476 

010706 030706 
020706 030710 

bea ¥h 000020 
000020 3$: 


062560 


043770 


000400 
005056 


000012 
ps htt 

0012 000024 4$: 
000024 


000400 
000024 000012 


TESTING RANDOM DATA & WORD COUNTS 


14 
16 (SP) 
$ 


LSUNIT,22(SP) 
R1 


31$ 
PC,GENS 
R1,R0 


’ 


RO 
RO 


RO 
#ORIVE.STATUS,RO 
~ $4: 


Fie7T90. (SP) 
#1 25 (SP) 


PC BL SGr2 
#10,SP 

RO 

9$ 
R1,L$LUN 
R1.RO 


R 
LOW. SECT(RO) ,R4 
#WBUFF ,WPTR 
#RBUFF RPTR 
#TOP. SECT, 20(SP) 
RO,20(SP) 
R4.a20(SP) 

9$ 

PC ,RNDWC 

RO.R3 

R3.-(SP) 
PCSET.PTRS 

R3. (SP 
#460,-(SP) 
PC,BLSDIV 

R4_R 


‘ 0 
RO,12(SP) 
R4,RO 
12(SP) 
pets?) aN er 
a24(SP),RO 
R4,RO 
RO 
RO 


#460,R3 
@24(5P),12(SP) 


LUN,* 


LUN,* 
LUN,* 


*, SECTOR 


SECTOR,* 

* ,WRDOCNT 
WRDCNT,* 
WRDCNT,* 
SECTOR,* 

* NEXT.SECT 
SECTOR NEXT.SECT 
NEXT.SECT 
NEXT.SECT,* 
SECTOR,* 


* ,WRDCNT 
* ,WROCNT 
* NEXT.SECT 


SEQ 0268 


743 TOPS 
705 


PA:< 


6097 
6099 
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RAND2 TESTING RANDOM DATA & WORD COUNTS SEQ 0269 
11648 iMLX4 23-Oct-1980 15:01:43 TOPS 
| 11082 ; TESTING RANDOM DATA & WORD COUNTS 23-0ct-1980 14:57:05  PA:< 
11651 065322 005266 000012 INC 12(SP) ; NEXT.SECT 
11652 065326 010116 5$: MOV R1, (SP) ; LUN,* 6125 
11653 065330 010346 MOV R3,-(SP) ; WROCNT,* 
11654 065332 013746 030706 MOV WPTR,=(SP) 
| 19655 065336 010446 . MOV R4 = (SP) ; SECTOR,* 
11656 065340 004737 042246 JSR PC WRITE 
11657 065344 010005 MOV RO,R5 ; *,VALUE 
11658 065346 020527 000001 CMP R5,#1 ; VALUE,* 6129 
11659 665352 001031 BNE 6$ 
11660 065354 012746 000006 MOV #6 =(SP) ; 6133 
11661 065360 012746 042246 MOV MWRITE,~(SP) 
11662 065364 010146 MOV R1,=(SP) ; LUN,* 
11663 065366 010346 MOV R3,-(SP) ; WRDCNT,* 
11664 065370 013746 030706 MOV WPTR,=(SP) 
11665 065374 010446 MCV R4 ,-(SP) ; SECTOR,* 
11666 065376 004737 043046 JSR PC RETRY 
11667 065402 062706 000014 ADL #14,SF 
11668 065406 005700 TST R0 
11669 065410 001446 BEQ 108 
11670 065412 112761 000004 032464 MOVB = #4, WHY. .DROPT(R1) ; *,*(LUN) 6136 
11671 065420 104455 TRAP 55 : 6137 
11672 065422 012121 -WORD 12121 
11673 065424 010512 -WORD MSG1 
11674 065426 000000 -WORD 0 
11675 065430 010100 MOV R1,RO ; LUN,* 6138 
11676 065432 104451 TRAP 51 
11677 065434 000431 BR 8$ : 6139 
11678 065436 020527 000002 6$: CMP R5,#2 : VALUE,* 6129 
11679 065442 001012 BNE ? 
11680 065444 112761 000005 032464 MOVB = #5, WHY .DROPT(R1) ; *,*(LUN) 6144 
11681 065452 104455 TRAP = 55 : 6145 
11682 065454 012122 «WORD 12122 
11683 065456 010512 «WORD MSGI 
11684 065460 000000 «WORD 0 
11685 065462 010100 MOV R1,RO ; LUN,* 6146 
11686 065464 104451 TRAP 51 
11687 065466 000414 BR 8$ : 6147 
11688 065470 020527 000003 7$: CMP R545 ; VALUE,* 6129 
11689 065474 001014 BNE 10$ 
11690 065476 104455 TRAP = 455 ; 6151 
11691 065500 012123 “WORD 12123 
11692 065502 010512 -WORD MSGI 
11693 065504 000000 -WORD 0 
11694 065506 112761 000006 032464 MOVB #6,WHY.DROPT(R1) 3 *,* (LUN) 6152 
11695 065514 010100 R1,RO ; LUN,* 6153 
bes J 065516 104451 TRAP 51 
11697 065520 062706 000012 8$: ADD #12,SP ; 6154 
11698 065524 000535 98: BR 15$ 
11699 065526 004737 043010 108: JSR PC CHOOSE : 6159 
11700 065532 010066 000024 MOV RO,24(SP) ; *, COMMAND 
11701 065536 00500¢ CLR R : 6160 
| 19702 065540 020027 042434 CMP RO, #READ ; COMMAND, * 
i 
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030710 
042434 
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030706 
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7MLX4 


118: 


TESTING RANDOM DATA & WORD COUNTS 


11$ 
R2 
Aen > Nt 


WPTR,=(SP) 
RPTR,=(SP) 
R3,-(SP) 

PC ,DOUBLE . CHECK 


a 2SP Fd 
1 iat 


13 

R1,-(SP) 

PC ,SAYWHO 
#MSGS, (SP) 
#SAY1,-(SP) 
#2,-(SP) 
P,RO 


1 
40(SP), (SP) 


SP,RO 


14 

#10000 ,46(SP) 
46(SP), (SP) 
946(SP),-(SP) 
#FMT12B,-(SP) 
+ Se al 


1 
co are 


; *,PTR 
3; LUN,* 
3; WROCNT,* 


; SECTOR,* 


; *,PTR 


UN,* 

; WRDCNT,* 
: CTOR,* 
3; *,VALUE 


; WRDCNT,* 


; *,DBL.VALUE 
; LUN,* 


; SP,* 

; DBL.VALUE,* 
; DBL.VALUE,* 
; SP,* 

; *,DBL.VALUE 
; DBL.VALUE,* 
; DBL.VALUE,* 
; 8 
*,*(LUN) 


oo 


SEQ 0270 


TOPS 
PA:< 


6163 
6164 


6168 
6169 


6174 
6177 


6180 


6183 
6184 


6186 


6188 
6189 


6191 
6192 


MLKG MACRO M1113 24-O0CT-8C 09:59 PAGE 316 


'RAND2 TESTING RANDOM DATA & WORD COUNTS Se 0271 
11760 sMLX4 23=0ct-1980 15:01:43 TOPS 
Nees 3 TESTING RANDOM DATA & WORD COUNTS 23-0¢t-1980 14:57:05 PA:< 
11788 066010 910100 MOV R1,RO : LUN,* 6193 
11764 066012 104451 TRAP 51 
11765 066014 062706 000044 ADD #46,SP : 6194 
11766 066020 000506 15$: BR 21$ 
11767 066022 020527 000001 16$: CMP RS, #1 : VALUE, * 6174 
11768 066026 001031 BNE 
11769 066030 012746 000006 MOV #6,-(SP) : 6199 
11770 066034 016646 000036 MOV 36(SP) ,-(SP) + COMMAND, * 

11771 066040 010146 MOV R1,-(SP) ; LUN,* 

11772 066042 010346 MOV R3,-(SP) ; WRDOCNT,* 

11773 066044 016646 000046 MOV 46(SP) ,-(SP) ; PTR,* 

11774 066050 10446 MOV R4,-(SP) ; SECTOR,* 

11775 066052 737 043046 JSR PC,RETRY 

11776 066056 062706 000014 ADD #id,sp 

11777 066062 005700 TST RO 

11778 066064 001662 BEQ 13$ 

11779 066066 112761 000004 032464 MOVB #4, WHY.DROPT(R1) : *,*(LUN) 6202 
11780 066074 104455 TRAP 55 : 6203 
11781 066076 012125 .WORD 12125 

11782 066100 010512 “WORD SG1 

11783 066102 000000 “wORD 0 

11784 066104 010100 MOV R1,R0 ; LUN,* 6204 
11785 066106 104451 TRAP ss 51 

11786 066110 000450 BR 208 : 6205 | 
11787 066112 020527 000002 17$: CMP RS, #2 > VALUE,* 6174 | 
11788 066116 001012 BNE 18 | 
11789 066120 112761 000005 032464 MOVE  #5,WHY.DROPT(R1) : *,*(LUN) 6210 | 
11790 066126 104455 TRAP «55 : 6211 
11791 066130 012126 WORD 12126 

11792 066132 010512 WORD MSGI 

11793 066134 000000 “WORD 0 

11794 066136 010100 "OV R1,RO > LUN,* 6212 
11795 066140 104451 [RAP 51 

11796 066142 000433 BR 208 : 6213 
11797 066144 020527 000003 18$: CMP R583 > VALUE,* 6174 
11798 066150 901012 BNE 19$ 

11799 066152 10445 TRAP = 455 ; 6217 
11800 066154 012127 WORD 12127 

11801 066156 (10512 “WORD MSG 

11808 066160 “WORD 

11803 066162 112761 000006 032464 MOVE #6, WHY.DROPT(R1) : #,*(LUN) 6218 
11804 066170 010100 MOV R1,RO > LUN,* 6219 
+4 Dest 74 so0e%6 pe! Os 6220 
11907 1% aiteas 000004 198: CMP RS, #4 > VALUE,* 6174 
11808 101 BNE 22 

11809 37 035212 JSR BC, ISOLATE ; 6224 
11810 19 104455 TRAP : 6225 
11811 1 121 .WORD 121 

1181 14 01054 “wORD MS 

1181 066216 < WORD 
11814 112761 000007 032464 MOVE ss #7, WHY .DROPT(R1) : *,e (LUND 6226 
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™ 
|RAN 


816 

817 

818 

819 066226 

820 066230 

821 066232 

as¢ erate 

823 066240 

824 066244 

825 066246 

826 066252 
7 066260 
8 066262 


wey 
33 
S 


© 09 9 Co Go 0° Oo 
=So 
3 
PIN Pa 


3 
32 0662 
33 066276 
834 066300 
835 066302 
836 066306 
837 066310 
838 066314 
839 066320 
840 066322 
841 066324 
at 066330 
it ta 
845 066344 
846 066346 
847 066350 
648 066352 
849 066354 
11850 066356 
11851 066362 
Hh 2 066366 
11853 066372 
11854 066376 
11855 066400 
a 2 066402 
1185 
11858 06641 
11859 066414 
Vie Bee 
11 
11868 
11864 
He 
es 
11868 06645 
11869 065454 
11870 066456 


000022 
000005 


035212 
000001 


144140 


143776 


50 
143760 


002260 


000046 23%: 


000046 
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R1,RO 

51 

#22,SP 
30$ 

R585 

29 

PC, ISOLATE 
#1,ERROUT 


ort -REGNKE Re 


R 
#177700 ,R2 


R2,-(SP 
#FMTIOB,-(SP) 
+ a 


14 


#6,SP 
@ML .REG+44 ,46(SP) 
Om. .REGoE Re 


R 
#177700 ,R2 


R3.-(SP) 
46(SP) ,-(SP) 
R4,-(SP) 

PC RETRY 
#id,se 

RO, 85 


OAL .REG*44 ,46(SP) 


O(SP) RO 
OAL .REG*42 ,R2 


; LUN,* 


; VALUE,* 


SP,* 


* ,OLDSEC 


* ,OLDCHN 


* ,OLDSEC 
OLDCHN,* 


23-0¢t-198 
23-0ct-198 


0 15 
0 14 


SEQ 0272 


TOPS 
PA:< 


6227 
6228 
6174 


6232 
6233 


6234 


6238 


6240 


‘concessional sentient 


nN 5 
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'RAND2 TESTING RANDOM DATA & WORD COUNTS - $€Q 0273 

| 1187 MLK 33-Oct-1980 15:01:43 TOPS 
1873 ; TESTING RANDOM DATA & WORD COUNTS 3-0 t-1980 14:57:05 PA:< 

| 11875 066460 006202 ASR R2 
11876 066462 042702 177700 BIC #177700,R2 
11877 066466 020200 CMP R2,RO 
11878 066470 001016 BNE 2 
11879 066472 032737 000001 002260 BIT #1, ERROUT ; 6243 
11880 066500 001404 BEQ 4$ 
11881 066502 104456 TRAP é ; 6245 
11882 066504 012131 .WORD 121311 
11883 066506 010624 “WORD MSG4 
11884 066510 000000 “WORD 0 
11885 066512 010146 248: MOV R1,-(SP) : LUN,* 6246 
11886 066514 013746 032360 MOV BOARD ,-(SP) 
11887 066520 004737 035302 JSR PC,UP.HARD. COUNT 
11888 066524 000426 BR 28$ : 6240 | 
11889 066526 032737 000001 (002260 25$: iT #1, ERROUT : 6250 | 
11890 066534 001415 BEQ 27% 
11891 066536 104457 TRAP §7 ; 6252 
11892 066540 012132 .WORD 12132 
1189 542 010610 “wORD MSG3 
11894 066544 000000 “WORD | 
11895 066546 000410 BR 27% F 6253 
11896 066550 032737 000001 002260 76%: ° BIT #1, ERROUT : 6257 | 
11897 066556 001404 BEQ 27$ 
11898 066560 104457 TRAP =‘ 57 : 6259 
11899 066562 12133 WORD 12133 
11900 10610 “WORD MSG 
11901 066566 000000 “wORD 0 
11902 066570 010146 27$: MOV R1,-(SP) : LUN,* 6260 | 
11903 066572 013746 032360 MOV BOARD ,-(SP) 
11904 066576 004737 035430 JSR PC,UP. SOFT. COUNT 
11905 066602 022626 28$: CMP ($P)+.(SP)¢ : 6231 | 
11906 066604 016604 000030 29$: MOV 30(SP) R46 > NEXT.SECT, SECTOR 6266 
11907 066610 062737 000002 030706 ADD #2,uPTR : 6267 
11908 066616 0627 ADD #22,SP ; 6112 
11909 066622 000137 06521 JMP 3$ ; 6111 
11910 005201 30$: INC R1 > LUN 
11911 peeees 020166 000022 31s: cmp R1,22(SP) : LUN,* 
11912 066634 00200 BGE 32 
1191 066656 000137 065076 JMP 2$ 
11914 066642 005266 000016 328: INC 16(SP) : COUNT 6097 
11915 066646 026666 000016 000046 CMP 16(SP) ,46(SP) > COUNT, REPEAT 
11916 066654 00300. BGT 33 
11917 066656 000137 065062 JMP 18 
11918 066662 062706 000030 33$: ADD #30,SP : 6031 
11919 066666 00020 RTS PC 
11921 ; Routine Size: 467 words ; 
11922 ; Maximum stack depth per invocation: 36 words 
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11928 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
EP 34 : TESTING RANDOM SECTORS, DATA, WORD COUNTS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (50) 
1133) : 6g?? XSBTTL ‘TESTING RANDOM SECTORS, DATA, WORD COUNTS’ 
11933 ; 6277 ROUTINE RAND3(REPEAT): NOVALUE = 
11934 ; 6278 BEGIN !* 1 * START OF ROUTINE 
11935 : 6279 
11936 ; 6280 !++ 
11937 ; 6281 !' ROUTINE: RAND 3 (REPEAT) 
11938 ; 6282 ! 
11939 ; 6283 ! PURPOSE: TO CHECK RANDOM SECTORS 
11940 ; 6284 =! 
1 1Oe3 3 ocee ARGUMENT: REPEAT = NUMBER OF TIMES TO EXECUTE ENTIRE ROUTINE 
11943 ; 6287 '! THE CODE FOR ‘RAND3" IN BRIEF: 
11944 ; 6288 =! 
11945 ; 6289 ! BEGIN 1 (START OF ROUTINE) 
11946 ; 6290 ! SAY ROUTINE IS RUNNING 
11947 ;: 6291 ! INCR COUNT FROM 1 TO REPEAT 
11948 ; 6292 ! : BEGIN 2 (START OF “ys “ye FOR THIS ROUTINE) 
11949 ; 6293 ! : GENERATE THE RANDOM PATTERN 
11950 ; 6294! : INCR L LUN FROM 0 TO LAST 
11951 ; 6295 ! : : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 
11952 ; 6296 | : : INITIALIZE BUFFER POINTERS 
11953 ; 6297 =! : TESTL OOP : 
11954 ; 6298 |! : : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
11955 ; 6299 ! :: : UNIT IS ACTIVE 
11956 ; 6300 ! : : THEN 
11957 ; 6301 ! : : : : BEGIN 5 (START OF TEST 4 AN ACTIVE UNIT) 
11958 ; 6302 |! : 2 : TIMES = (HIGHEST - ‘Witt 42+ 1 
11959 ; 6303 ! =: : : : INCR KOUNT FROM 1 TO TIMES 
11960 ; 6306 ' :: : : : BEGIN . (START OF COUNTING LOOP FOR SECTOR SELECTION) 
11961 ; 6305 ! : : : : : CHOOSE A RANDOM WORD COUNT 
11962 ; 6306 ' :: 3: : : SET UP tt POINTERS BEFORE TRANSFER 
11963 ; 6307 !' : : : : : CHOOSE A RANDOM SECTOR 
11964 ; 6308 ' : : : : : CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT) 
11965 ; 6309 ! :: : : : IF CALCULATED VALUE GTR HIGHEST 
11966 ; 6310 ! : : : : : : THEN ADJUST THE WORD COUNT SO IT FITS 
11967 ; anes:- 2. £2 & 58 2 WITHIN THE TESTABLE SECTOR LIMITS 
11968 ; 6312 ' : : : : : WRITE 
11969 ; 6313 !' : : : : + LOOK FOR ERRORS (IF DROP UNIT, er. LABEL) 
11970 ; Ss36 ¢ ££ § FE 8 CHOOSE WHETHER TO WRITE CHECK OR READ 
11971 ; 6315 ! :: : : : DO THE WRITE CHECK OR READ 
11972 ; 6316 ! : : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE LABEL) 
11973 ; 6317 !' +: : : : : CHANGE BUFFER POINTERS AFTER TRANSFE 
11974 ; 6318 !$ =: : : : : END 6 (END OF COUNTING LOOP FOR so SELECTION) 
11975 ; 6319 ! : END 5 (END OF TEST FOR AN ACTIVE UNIT) 
11976 ; 6320 ! :: > END 4 (END OF TESTLOOP) 
11977 ; 6321 ! : END D 3 (END OF LOGICAL UNIT SELECTION LOOP) 
11978 ; 6322 ! END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 
11979 ; 6323 =! RETURN 
11980 ; 6324 ! _END 1 (END OF ROUTINE) 
11981 ; 6325 '!- 
11982 ; 6326 


pa 


—— - ee _ 
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| 11984 :MLX4 23=0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
nbs ; TEST'NG RANDOM SECTORS, DATA, WORD COUNTS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (50) 

11987 ; 6327 LOCAL 
11988 ; 6328 WRDCNT, SECTOR, TIMES, VALUE, OLDSEC, OLDCHN, 
11989 ;: 6329 PTR, COMMAND, DBL_VALUE; 
11990 ; 6330 
11991 ; 6331 LABEL 
11992 ; 6332 LOOP; 
11993 ; 6333 
11994 ; 6334 PRINTB(SAY1,RINSC); 
11995 ; 6335 '*RAND3' 
11996 ; 6336 
11997 : 6337 INCR COUNT FROM 1 TO .REPEAT DO 
11998 : 6338 BEGIN !* 2 * STA art OF REPEAT LOOP FOR THIS ROUTINE 
11999 ; 6339 INCR LUN FROM 0 TO (.LSUNIT = 1) 
12000 ; 6340 BEGIN !* 3 * START OF LOGICAL UNIT SELECTION LOOP 
12001 ; 6341 GENS(); 
12002 ; 6342 LOOP: 
12003 ; 6343 BEGIN !* 4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 
12004 ; 6344 IF .DRIVE_STATUSC.LUN] EQL ACTIVE 
12005 ; 6345 THEN 
12006 ; 6346 BEGIN !* § ® START OF TEST FOR AN ACTIVE UNIT 
12007 ; 6347 L$LUN = .LUN; 
12008 ; 6348 WPTR = WBUFF: 
12009 ; 6349 RPTR = RBUFF 
12010 ; 6350 TIMES = (HIGHEST = LOWEST)/2 + 1; 
12011 ; 6351 INCR KOUNT FROM 1 TO .TIMES DO 
12012 ; 6352 BEGIN !* 6 * START OF COUNTING LOOP FOR SECTOR SELECTION 
12013 ; 6353 WRDCNT = RNDWC(); 'VALUE BETWEEN 1 AND BUFSIZ 
12014 ; 6354 SET _PTRS(.WRDCNT); 
12015 ; 6355 SECTOR = RNDSEC‘.LUN);'VALUE BETWEEN LOWEST AND HIGHEST 
12016 ; 6356 IF (.SECTOR + .WRDCNT/256) GTRA HIGHEST 
12017 ; 6357 THEN WRDCNT = 256 * (HIGHEST = .SECTOR + 1); 
12018 ; 6358 
12019 ; 6359 VALUE = WRITE(.LUN, .WROCNT, .WPTR, SECTOR); 
12020 ; 6360 '¢ 
12021 ; 6361 ' SEE HOW SUCCESSFUL THE WRITE WAS: 
12022 ; 6362 '- 
12023 ; 6363 SELECTONE .VALUE OF 'SEE "SYSERR' FOR DEFINITION 
12024 ; 6364 SET 'OF ERROR # CONTAINED IN ‘VALUE’ 
12025 ; 6365 C1) : 
12026 ; 6366 BEGIN '* 6A * RETRY ALLOWED 
12027 ; 6367 IF RETRY(SIX,WRITE,.LUN, .WROCNT,.WPTR,.SECTOR) NEQ 0 
12028 ; 6368 THEN 'THE RETRY FAILED == SYSTEM FATAL ERROR 
12029 ; 6369 BEGIN 
12030 ; 6370 WHY DROPTC.LUN) = CODE 4; 
12031 ; 6371 ERRBE (3801, MSG1,0);  Teeee OPTION 5, RAND3 ERROR 01 eeee 
12032 ; 6372 DODU(.LUN); 
12033 ; 6373 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 4 * 
12034 ; 6374 END; 
12035 ; 6375 END; 'e 6A ® 
12036 ; 6376 (2) : 
12037 ; 6377 BEGIN !* 6B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
12038 ; 6378 WHY _DROPTL. LUN] = CODE_5; 

| 

| 


SEQ 0275 
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|RAND2 TESTING RANDOM DATA & WORD COUNTS SEQ 0276 
12040 ;MLK4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
| i Sieh ; TESTING RANDOM SECTORS, DATA, WORD COUNTS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (50) 
12043 ; 6379 ERRDF(5302,MSG1,0); !**** OPTION 5, RAND3 ERROR 02 *#e* 
12044 ; 6380 DODU(.LUN); 
12045 ; 6381 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
12046 ; 6382 END; '* 6B * 
12047 ; 6383 (3) : 
12048 ; 6384 BEGIN !* 6C * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
12049 ; 6385 ERRDF(5303,MSG1,0); ‘**** OPTION 5, RAND3 ERROR 03 eeee 
12050 ; 6386 WHY DROPTC.LUN] = CODE_6; 
12051 ; 6387 pop0(.LUN); 
12052 ; 6388 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
12053 ; 6389 END; !* 6C * 
12054 ; 6390 
12055 ; 6391 TES; 
12056 ; 6392 
12057 ; 6393 COMMAND = CHOOSE(); 
12058 ; 6394 IF .COMMAND EQL READ 
12059 ; 6395 THEN 
12060 ; 6396 BEGIN 
12061 ; 6397 PTR = .RPTR; 
12062 ; 6398 VALUE = READ(.LUN, .WRDCNT,.RPTR,.SECTOR); 
12063 ; 6399 END 
12064 ; 6400 EI SE 
12065 ; 6401 
12066 ; 6402 PTR = .WPTR; 
12067 ; 6403 VALUE = CHECK(.LUN, .WROCNT, .WPTR,.SECTOR); 
12068 ; 6404 END; 
12069 ; 6405 + 
12070 ; 6406 ' SEE HOW SUCCESSFUL THE OPERATION WAS: 
12071 ; 6407 os 
12072 ; 6408 SELECTONE .VALUE OF 'SEE "SYSERR' FOR DEFINITION 
12073 ; 6409 SET 'OF ERROR # CONTAINED IN ‘VALUE* 
12074 ; 6410 (0) : 
12075 ; 6411 IF .COMMAND EQL READ 
12076 ; 6412 THEN 
12077 ; 6413 BEGIN 
12078 ; 6414 IF (DBL_VALUE = DOUBLE_CHECK(.WPTR,.RPTR,.WRDCNT)) NEQ 0 
12079 ; 6415 THEN 
12080 ; 6416 BEGIN 
12081 ; 6417 SAYWHO(.LUN); 
12082 ; 6418 PRINTB(SAY1, MSGS); 
12083 ; 6419 '"ECC LOGIC FAILED TO DETECT para ERROR" 
12084 ; 6420 PRINTBCFRTZA- «OBL. V VALUE, .DBL_VALUE); 
12085 ; 6421 ware © “yj XXXTKK A FL OEATION” yyvyyy' 
12086 ; 6422 LUE = VALUE : Burst . 2: 
12087 ; 6423 PRIRTRCEATI 28... ‘seu y VALUE, .DBL_VALUE); 
12088 ; 6424 BAD 0 owes fi Gp DEAT ION” 00da0Q' 
12089 ; 6425 ROPTC. ey = a} 
12090 ; 6426 BARDOT (3304; MSGI, the Me elas OPTION 5, RAND3 ERROR 04 eee 
12091 ; 6427 DODU(.LUN); 
12092 ; 6428 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
12093 ; 6429 END; 
12094 : 6430 END; 
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| 12096 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2‘206) 
| 12097 : TESTING RANDOM SECTORS, DATA, WORD COUNTS 23-0ct-1980 14:57:05  PA:<ROSEN>MLX4.BLI.1 (50) 
| 12099 ; 6431 (1) : 
| 12100 ; 6432 BEGIN !* 6D * RETRY ALLOWED 
12101 ; 6433 IF RETRY(SIX,.COMMAND, .LUN,.WRDCNT,.PTR,.SECTOR) NEQ 0 
12102 ; 6434 THEN 'THE RETRY FAILED <= SYSTEM FATAL ERROR 
12103 ; 6435 BEGIN 
12104 : 6436 WHY DROPTC.LUN3 = CODE_4 
12105 ; 6437 ERRDP (5305. MSG1,0); Teaee OPTION 5, RAND3 ERROR 05 *ee« 
12106 ; 6438 DODU(.LUN); 
12107 ; 6439 LEAVE LOOP; ' JUMP JUST BEYOND END OF BLOCK * 4 * 
12108 ; 6440 END; 
12109 ; 6441 END; '® 6D * 
12110 ; 6442 {2] : 
12111 : 6443 BEGIN !* 6€ * FATAL CONTROLLER ERROR == NO RETRY ALLOWED 
12112 : 6444 WHY DROPTC.LUN] = CODE_5; 
12113 : 6445 ERRBF (5306,MSG1, Ov Teeee OPTION 5, RAND3 ERROR 06 eeee 
12114 : 6446 DODU(.LUN);: 
12115 : 6447 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
12116 ; 6448 END; 
12117 ; 6449 (3) : 
12118 : 6450 BEGIN !* 6F * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
12119 ; 6451 ERRDF(5307,MSG1,0);  !**** OPTION 5, RAND3 ERROR 07 *eee 
12120 ; 6452 WHY_DROPT£.LUN] = CODE_6; 
12121 : 6453 pop0(.LUN); 
12122 ; 6454 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
12123 ; 6455 END; 'e 6F * 
12124 : 6456 [4] : 
12125 : 6457 BEGIN, is 6G * UNRECOVERABLE DATA ERROR 
12126 : 6458 ISOLAT 
12127 ; 6459 ERRbF (S308, MSG2,0);  !**** OPTION 5, RAND3 ERROR 08 *#** 
12128 ; 6460 WHY DROPTC.LUN) = CODS_7; 
12129 ; 6461 DODO(.LUN) : 
12130 ; 6462 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
12131 ; 6463 END; !* 66 * 
12132 ; 6464 (5): 
12133 ; 6465 BEGIN !* 6H * RECOVERABLE DATA ERROR 
12134 : 6466 ISOLATE(); 
12135 ; 6467 IF .ERROUT 
12136 ; 6468 THEN PRINTBCFNT1OB, CHAN) ; 
12137 : 6469 
12138 ; 6470 OLDSEC = met; 
12139 ; 6471 OLDCHN = .CHA 
12140 ; 6472 IF RETRY(ONE, CHECK, .LUN, .WRDCNT, .WPTR,.SECTOR) EQL 5 
12141 : 6473 THEN 
12142 : 6474 LF ((.MLEL EQL .OLDSEC) AND (.CHAN FQL .OLDCHN)) 
12143 ; 6475 THEN 
12144 : 6476 BEGIN 
12145 ; 6477 IF .ERROUT 
12146 ;: 6478 THEN 
12147 ; 6479 ERRHRD(5309,MSG4,0); !**** OPTION 5, RAND3 ERROR 09 tees 
12148 : 6480 UP_HARD_COUNT(.LUN, .BOARD) ; 
12149 ;: 6481 ENB 
| 12150 ; 6482 ELSE 
| 
| 
| 
j 
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/ 12152 3MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
SNe? 3 TESTING RANDOM SECTORS, DATA, WORD COUNTS 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (50) 
| 12155 ; 6483 BEGIN 
| 12156 ; 6484 IF .ERROUT 
| Weis? es 6485 THEN 
12158 ; 6486 ERRSOFT(5310,MSG3,0); !**** OPTION 5, RAND3 ERROR 10 *eee 
12159 ; 6487 UP_SOFT_COUNT(.LUN,.BOARD) ; 
12160 ; 6488 ENB 
| 12161 ; 6489 ELSE 
12162 ; 6490 BEGIN 
| 12163; 6491 IF .ERROUT 
12164 ; 6492 THEN 
12165 ; 6493 ERRSOFT(5311,MSG3,0); !**** OPTION 5, RAND3 ERROR 11 *ee* 
12166 ; 6494 UP_SOFT_COUNT(.LUN, .BOARD) ; 
12167 ; 6495 END; 
12168 ; 6496 END; ‘!* 6H * 
12169 ; 6497 
12170 ; 6498 TES; 
12171 ;: 6499 
12172 ; 6500 WPTR = .WPTR + 2; 
12173 ;: 6501 END; '* 6 * END OF COUNTING LOOP FOR SECTOR SELECTION 
12174 ; 6502 END; '* 5 ® END OF TEST FOR AN ACTIVE UNIT 
12175 ; 6503 END; !* 4 * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 
12176 ; 6504 END; ‘'* 3 * END OF LOGICAL UNIT SELECTION LOOP 
12177 ;: 6505 END; '* 2 * END OF REPEAT LOOP FOR THIS ROUTINE 
12178 ; 6506 RETURN; 
ate 4 ; 6507 END; '® 1 * END OF ROUTINE 
12184 .SBTTL RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS 
12188 066670 004137 005222 RAND3: JSR R1,$SAVE5 : 6277 
12189 066674 162706 000024 SUB #24,SP 
12190 066700 012746 007322 MOV #RTNSC,-(SP) : 6334 
12191 066704 012746 006514 MOV #SAY1,<(SP) 
12192 066710 012746 000002 MOV #2,-(SP) 
12193 066714 010600 MOV SP,RO s $P,¢ 
12194 066716 104414 TRAP 14 
12195 066720 005066 000030 CLR 30(SP) ; COUNT 6337 
12196 066724 000137 070534 JMP 33% 
12197 066730 013766 002012 000012 1$: MOV LSUNIT,12(SP) : 6339 
12198 066736 005004 CLR R4 3; LUN 
12199 066740 000137 070522 JMP 32$ 
12200 066744 004737 036710 2$: JSR PC,GENS : 6341 
12201 066750 010400 MOV R4,RO ; LUN,* 6344 
12202 066752 006200 ASR RO 
12203 066754 006200 ASR RO 
12204 066756 006200 ASR RO 
12205 066760 062700 032460 ADD #DRIVE.STATUS,RO 
12206 066764 010046 MOV RO,-(SP) 
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RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS SEQ 0279 
12208 sMLX4 23-0ct-1980 15:01:43 TOPS 
| 12209 : TESTING RANDOM SECTORS, DATA, WORD COUNTS 23-0ct-1980 14:57:05 PA:< 
| 12211 066766 010446 MOV R4,-(SP) ; LUN,* 
12212 066770 042716 177770 BIC #177770, (SP) 
12213 066774 012746 000001 MOV #1,-(SP5 
12214 067000 005046 CLR -(§P) 
| 12215 067002 004737 004244 JSR PC BL$GT2 
12216 067006 062706 000010 ADD #10,SP 
12217 067012 005300 DEC RO 
12218 067014 001172 BNE &E 
12219 067016 010437 002074 MOV R4,LSLUN : LUN,* 6347 
12220 067022 012737 010706 030706 MOV #WBUFF ,WPTR : 6348 
12221 067030 012737 020706 030710 MOV #RBUFF.RPTR : 6349 
12222 067036 010400 MOV R4,RO + LUN,* 6350 
12223 067040 006300 ASL RO 
12224 067042 012766 032516 000010 MOV #TOP.SECT,10(SP) 
12225 067050 060066 000010 ADD 0,10(SP) 
12226 067054 017646 000010 MOV a10(SP),-(SP) 
12227 067060 166016 032476 SUB LOW. SECT (RO), (SP) 
12228 067064 012746 000002 MOV #2,-(SP) 
12229 067070 004737 005056 JSR PC .BL$DIV 
12230 067074 010066 000020 MOV RO.20(SP) : *, TIMES 
12231 067100 005266 000020 INC 20(SP) : TIMES 
12232 067104 005066 000012 CLR 12(SP) > KOUNT 6351 
12233 067110 000137 070476 JMP 29$ 
12234 067114 004737 062560 3$: JSR PC, RNDWC : 6353 
12235 067120 010003 MOV RO,R3 > *,WRDCNT 
12236 067122 010346 MOV R3,-(SP) ; WRDCNT,* 6354 
12237 067124 004737 043770 JSR PC.SET.PTRS 
12238 067130 010416 MOV R4, (SP) ; LUN,* 6355 
12239 067132 004737 062614 JSR PC .RNDSEC ) 
12240 067136 010001 MOV RO,R1 : *,SECTOR 
12241 067140 010346 MOV R3,-(SP) > wRDCNT,* 6356 
12242 067142 012746 000400 MOV #460,-(SP) 
12243 067146 004737 005056 JSR PC ,BLSDIV 
12244 067152 022626 CMP (SP)+,(SP)+ 
12245 067154 060100 ADD R1,RO : SECTOR,* 
12246 067156 020076 000016 CMP RO.a16(SP) 
12247 067162 101410 BLOS 4$ 
12248 067164 017600 000016 MOV @16(SP),RO : 6357 
12249 067170 160100 SUB R1,RO > SECTOR,* 
12250 067172 000300 SWAB RO : 6356 
12251 067174 105000 CLRB~—s_ RO 
12252 067176 010003 MOV RO,R3 : *,WRDCNT 6357 
12253 067200 062703 000400 ADD #400,R3 > # WRDCNT 
12254 067204 010416 4$: MOV R4, (SP) ; LUN,* 6359 
12255 067206 010346 MOV R3,-(SP) > WRDCNT,* 
12256 067210 013746 030706 MOV WPTR,-(SP) 
12257 067214 010146 MOV R1,-(SP) : SECTOR,* 
12258 067216 004737 042246 JSR PC WRITE 
12259 067222 010005 MOV RO,RS : *, VALUE 
12260 067224 020527 000001 CMP R581 > VALUE, * 6363 
12261 067230 001031 BNE 5$ i 
12262 067232 012746 000006 MOV #6,-(SP) : 6367 
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sMLX4 


5$: 


6$: 


7$: 
9$: 


10$: 


TESTING RANDOM SECTORS, DATA, WORD COUNTS 


MWRITE,-(SP) 
R P) 


6$ 

re ere 
12266 

MSG1 


£0 eemipallcnneen: 
51 

#14,SP 

14% 

PC, CHOOSE 

+ Sahai 


R 
RO, #READ 
10% 


R2 
RPTR, gett 


11 
WPTR, 36(SP) 


LUN,* 
WRDCNT, * 


SECTOR,* 


*,* (LUN) 


LUN,* 


VALUE ,* 
*,*(LUN) 


; LUN,* 


VALUE . « 


*,* (LUN) 
LUN,* 


: *, COMMAND 
: COMMAND, * 


WRDCNT, ® 
SECTOR,* 


*,PTR 


SEQ 0280 


TOPS 
PA:< 


6370 
6371 


6372 


6373 
6363 


6378 
6379 


6380 


6381 
6363 


6585 


6386 
6387 


6388 
6393 
6394 


6397 
6398 


6402 
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\geee sMLX4 


2 
$3 5 067466 013746 030706 
$ase 067474 004737 042622 


332 067510 000137 070464 12$: 
333 067514 013746 030706 13$: 
34 067520 013746 030710 


336 067526 004737 041226 
337 067532 062706 000006 
338 067536 010066 000052 


341 067546 004737 033436 
0675 


347 067572 016616 000060 
8 0675 
350 067606 012746 090003 


353 067616 062766 arenee 000066 


2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2343 067556 

Sire 067562 012746 000002 
2 

2 

2 

2 

2 

2 

é 

2 

2 

2 

2 0676 

Sten 067640 012746 000003 
2 


2360 067650 112764 000019 032464 

2361 067656 104455 

2362 067660 012270 

2363 067662 010512 

2364 067664 000000 

2365 067666 010400 

2366 067670 104451 

2367 067672 062706 000046 

2368 067676 000506 14$: 
2369 067700 020527 000001 158: 
2370 067704 001031 

2371 067706 012746 000006 

2372 067712 016646 000052 

2373 067716 010446 

2374 067720 010346 


TESTING RANDOM SECTORS, DATA, 


R4 ,-(SP) 


WPTR,=(SP) 
RPTR,=(SP) 
R3,-(SP) 

PC ,DOUBLE. CHECK 
#6,SP 
RO,52(SP) 

12$ 

R4,-(SP) 

PC ,SAYWHO 
#MSG5, (SP) 
#SAY1,-(SP) 
#2,-(SP) 

14 

60(SP), (SP) 
a@60(SP) ,-(SP) 
#FMT12A,-(SP) 
#3,-(SP) 
SP,RO 


14 

#10000 ,66(SP) 
66(SP), (SP) 
066 (SP) ,-(SP) 
#FMT12B,-(SP) 
#3,-(SP) 

+ Re 


1 
Spee ner 


12270 ° 
MSG1 


0 

R4,RO 

51 

#46,SP 

20% 

R5,#1 
#6,~(SP) 
52(SP) ,-(SP) 
R4,-(SP) 
R3,-(SP) 


* 
oo 


SEQ 0281 


TOPS 
PA:< 


6403 


6408 
6411 


6414 


6417 
6418 


6420 


6422 
6425 


6425 
6426 


6427 
6428 
6408 
6433 
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RANDS TESTING RANDOM SECTORS, DATA, WORD COUNTS SEQ 0282 
12376 sMLX4 23-0ct-1980 15:01:43 TOPS 
seer ; TESTING RANDOM SECTORS, DATA, WORD COUNTS 23-0¢t-1980 14:57:05 PA:< 
12379 067722 016646 000056 MOV 56(SP),-(SP) : PTR,* 

12380 067726 010146 MOV R1,-(SP) : SECTGR,* 

12381 067730 004737 043046 JSR PC,RETRY ~ 

12382 067734 062706 000014 ADD #i4,SP 

12383 067740 005700 TST RO 

12384 067742 001662 BEQ 128 

12385 067744 112764 000004 032464 MOVB #4 ,WHY .DROPT(R4) : #,*(LUN) 6436 
12386 067752 104455 TRAP 55 : 6437 
12387 067754 012271 WORD 12271 

12388 067756 010512 .WORD MSG1 

12389 067760 000000 WORD 0 

12390 067762 010400 MOV R4,RO : LUN,* 6438 
12391 067764 104451 TRAP 51 

12392 067766 000450 BR 19$ : 6429 
12393 067770 020527 000002 16$: CMP R5,#2 : VALUE,* 6408 
12394 067774 001012 ANE 17 

12395 067776 112764 000005 032464 MOVB #5, WHY .DROPT(R4) : *,*(LUN) 6444 
12396 070004 104455 TRAP 55 : 6445 
12397 070006 012272 WORD 12272 

12398 070010 010512 .WORD MSG1 

12399 070012 000000 WORD 0 

12400 070014 010400 MOV R4,RO : LUN,* 6446 
12401 070016 104451 TRAP 51 

12402 070020 000433 BR 19$ : 6447 
12403 070022 020527 000003 17$: CMP R543 ; VALUE,* 6408 
12404 070026 001012 BNE 18$ 

12405 070030 104455 TRAP 55 ; 6451 
12406 070032 012273 WORD 12273 

12407 070034 010512 .WORD MSG1 

12408 070036 000000 .WORD 0 

12409 070040 112764 000006 032464 MOVB #6 WHY .DROPT(R4) > #,*(LUN) 6452 
124%0 070046 010400 MOV R4,RO : LUN,* 6453 
12411 070050 104451 TRAP 51 

12412 070052 000416 BR 19$ ; 6454 
12413 070054 020527 000004 18$: CMP R584 ; VALUE,* 6408 
12414 070060 001017 BNE 21$ 

12415 070062 004737 035212 JSR PC, ISOLATE : 6458 
12416 070066 104455 TRAP 55 : 6459 
12417 070070 012274 «WORD 12274 

12418 070072 010542 «WORD MSG2 

12419 070074 000000 -WORD 0 

12420 070076 112764 000007 032464 MOVB #7 ,WHY .DROPT(R4) > *,*(LUN) 6460 
12421 070104 010400 MOV R4,RO : LUN,* 6461 
12422 070106 104451 TRAP 51 

12423 070110 062706 000024 19$: ADD #24,SP : 6462 
12424 070114 000137 070520 208: JMP 31$ 

12425 070120 020527 000005 21s: CMP R5,45 ; VALUE,* 6408 
12426 070124 001157 BNE 28 

12427 070126 004737 035212 JSR PC, ISOLATE : 6466 
12428 070132 032737 000001 002260 BIT #1, ERROUT : 6467 
12429 070140 001423 BEQ 22 

12430 070142 017702 142260 MOV QML .REG#42,R2 F 6463 


‘MLX4 MACRO M1113 24-OCT-80 09:59 PAGE 328 
‘RANDS TESTING RANDOM SECTORS, DATA, WORD COUNTS 


a pro tos 042702 177700 


442 07 
443 070170 012746 006262 
12444 070174 012746 000002 


2459 070252 012746 042622 
2 46 


2 
sone 070262 013746 030706 
2464 070270 004737 043046 
062706 000014 
020027 000005 
027766 142116 
03 


2 
2470 070316 016600 000044 
471 070322 Rac 142100 


177700 


000001 


sMLX4 


000042 22%: 


000042 


002260 


TESTING RANDOM SECTORS, DATA, WORD COUNTS 


r177700, »R2 
PAT IOB, - (SP) 
#2,- 

SRO 

14 


#6,SP 
QML .REG+44 ,42(SP) 
QML .REG+42,R2 


R 
#177700,R2 
R2,44(SP) 


2 
AML .REG+44 ,42(SP) 
4$ 


2 
44(SP) ,RO 
Om. .RESORE Be 


R 
#177700,R2 
R2,RO 

24 

#1, ERROUT 
23$ 


56 
12275 
MSG4 
0 


5 oF ,* 


* ,OLDSEC 


* ,OLDCHN 


LUN,* 
WRDCNT,* 


SECTOR,* 


* ,OLDSEC 
OLDCHN,* 


23-0ct-1980 1 
23-0ct-1980 1 


SEQ 0283 


6470 
6471 


6472 


6474 


6477 
6479 


MLX4G 
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032360 
035302 


000001 


000001 


032360 
035430 


000002 


000012 
067114 


000012 


066744 
000030 
000030 


066730 
000032 


-—— 


002260 


002260 


030706 


000020 


000050 


sMLX4 


25$: 


34$: 


; Routine Size: 


; Maximum stack depth per invocation: 


TESTING RANDOM SECTORS, DATA, WORD COUNTS 


R4,<(SP) 
BOARD ,-(SP) 

eS UP ..HARD.COUNT 
#1, ERROUT 

26$ 

57 

12276 

MSG3 

0 


26$ 
#1, ERROUT 
26$ 


57 

12277 

MSG3 

0 

R4,-(SP) 
BOARD ,~(SP) 


PC ,UP.SOFT.COUNT 
(SP)+,(SP)+ 


12(SP) 

12(SP) ,20(SP) 
30$ 

3$ 
(SP)+,(SP)+ 
R4 

R4,12°SP) 

33$ 

2$ 

30(SP) 

30(SP) ,50(SP) 
34$ 

1$ 

#32,SP 

PC 


477 words 


38 words 


LUN,* 


; LUN,* 


KOUNT 
KOUNT, TIMES 
LUN 


LUN,* 


COUNT 
COUNT ,REPEAT 


23-Oct-19 
23-0ct-19 


oo 


SEQ 0284 


TOPS 
PA:< 


6480 
6474 
6484 
6486 


6487 
6491 


6493 


tote ee . - a 


| Tig ite See Seas hb 
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'RAND3 TESTING RANDOM SECTORS, DATA, WORD CGUNTS SEQ 0285 
12539 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206) 
ice : TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT $3-octe -1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (51) 
sete : $308 ZSBTTL ‘TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNTS' 
12546 ; 6510 ROUTINE os hiker a NOVALUE = 
12545 ; 6511 BEGIN * | * START OF ROUTINE 
12546 ; 6512 
12547 ; 6513 !++ 
12548 ; 6514 ! ROUTINE: RAND4 (REPEAT) 

12549 ; 6515! 

1s330 : o3i8 PURPOSE: TO CHECK RANDOM UNITS 

16238 ; o2i8 ARGUMENT: REPEAT = NUMBER OF TIMES TO EXECUTE ENTIRE ROUTINE 
12554 ; 6520 ! THE CODE FOR ‘RAND4" IN BRIEF: 

12555 ; 6521! 

12556 ; 6522 ! BEGIN 1 (START OF ROUTINE) 

12557 ; 6523 |! SAY ROUTINE IS RUNNING 

12558 ; 6524 ! INCR COUNT FROM 1 TO REPEAT 

12559 ; 6525 ! : BEGIN 2 (START OF REPEAT FOR THIS ROUTINE) 

12560 ; 6526 ! : GENERATE THE RANDOM PATTERN 

12561 ; 6527 ! : TIMES = NUMBER OF UNITS * 4 

12562 ; 6528 ! : INCR KOUNT FROM 1 TO TIMES 

12563 ; 6529 !' : : BEGIN .. (START OF COUNTING LOOP FOR UNIT SELECTION) 
12564 ; 6530 ! : : CHOOSE A RANDOM LOGICAL UNIT WHICH IS ACTIVE 

12565 ; 653) 2 ¥ INITIALIZE BUFFER POINTERS 

12566 ; 6532 ! : 3: TEST LOOP: 

12567 ; 6535 ! 3:3: RESIN 4 (START OF _ THAT COMPLETELY TESTS 1 UNIT) 
12568 ; 6534 § ti: INCR KOUNT2 FROM 1 TO 1 

12569 ; 6535 ! : : : : BEGIN 5 (START OF thee | LOOP FOR SECTOR SELECTION) 
12570 ; 6536 ! ::: : CHOOSE A RANDOM WORD COUN 

12571 ; 6537 ! :: : : SET UP BUFFER POINTERS UE ORE TRANSFER 

12572 ; 6538 '! : : : : CHOOSE A RANDOM SECTOR 

12573 ; 6539! : : : CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT) 
12574 ; 6540 ! :: : : IF CALCULATED VALUE GTR HIGH ap 

12575 ; 6541 !' =: : : : : THEN ADJUST THE WORD COUNT SO IT FITS 

12576 ; 6542 !' ste e23 WITHIN THE TESTABLE SECTOR LIMITS 

12577 ; 6543 ' : : : : WRITE 

12578 ; 6544 !' : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE _esriaer 
12579 ; 6545! : : : CHOOSE WHETHER TO WRITE CHECK OR READ 

12580 ; 6546 ! : DO lg WRITE CHECK OR READ 

12581 ; 6547 !' =: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
12582 ; 6548 ! : : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

12583 ; 6549 !' :: : : END 5 (END OF COUNT ING LOOP FOR SECTOR SELECTION) 
12584 ; 6550 ! : : : END 4 (END OF TESTLOOP) 

12585 ; 6551 ! : : END 3 (END OF COURTING LOOP FOR UNIT SELECTION) 

12586 ; 6552 ! : END 2 (END M® REPEAT LOOP FOR THIS ROUTINE 

12587 ; 6553 ! RETURN 

12588 ; 6554 !' END 1 (END OF ROUTINE) 

12589 ; 6555 !-- 

12590 ; 6556 

12591 ; 6557 LOCAL 

12592 ; 6558 LUN, WRDCNT, SECTOR, VALUE, OLDSEC, OLDCHN, 

12593 ; 6559 * COMMAND, DBL _VAL UE; 


| 
| 
| 
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RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS 
12595 :MLX4 23-Oct-1980 15:01:43  TOPS=20 Bliss-16 V2(206) 
12596 : TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23-Oct-1980 14:57:05 | PA:<ROSENDMLX4.BLI.1 (51) 
12598 ; 6560 
12599 : 6561 LABEL 
12600 : 6562 : 
12601 : 6563 
12602 : 6564 PRINTB(SAY], RTNSD); 
12603 : 6565 
12604 : 6566 INCR COUNT FROM 1 TO .REPEAT D 
12605 ; 6567 BEGIN !* 2% START OF REPEAT LOOP FOR THIS ROUTINE 
12606 : 6568 GENS (); 
12607 : 6569 INCR KOUNT FROM 1 TO (.NUM_DRIVES * 4) DO 
12608 : 6570 BEGIN !* 3 * START OF COUNTING LOOP FOR UNIT SELECTION 
12609 : $571 LUN = RNDU(); 
12610 ; 6572 LSLUN = .LUN; 
12611 : 6573 WPTR = WBUFF: 
12612 : 6574 RPTR = RBUFF: 
12613 : 6575 LOOP: 
12614 : 6576 BEGIN !* 4 * START OF LOOP THAT COMPLETELY TESTS 1 UNIT 
12615 : 6577 INCR KOUNT2 FROM 1 TO 10 DO 
12616 : 6578 BEGIN '* 5 *® START OF COUNTING LOOP FOR SECTOR SELECTION 
12617 : 6579 WRDCNT = RNDWC(); EXPECT VALUE BETWEEN 1 AND BUFSIZ 
12618 : 6580 SET PTRS(.WRDCNT); 
12619 : 6581 SECTOR = RNDSEC(.LUN); ‘EXPECT VALUE BETWEEN LOWEST AND HIGHEST 
12620 ; 6582 IF (.SECTOR + .WRDCNT/256) GTRA HIGHEST 
12621 : 6583 THEN. WRDCNT = 256 * (HIGHEST - .SECTOR + 1); 
12622 ; 6584 
12623 : 6585 VALUE = WRITE(.LUN, .WRDCNT,.WPTR, SECTOR); 
12624 : 6586 1+ 
12625 : 6587 i SEE HOW SUCCESSFUL THE WRITE WAS: 
12626 : 6588 ie 
12027 ; 6589 SELECTONE .VALUE OF 'SEE 'SYSERR' FOR DEFINITION 
12628 : 6590 SET ‘OF ERROR # CONTAINED IN ‘VALUE' 
12629 : 6591 1]: 
2630 : 6592 BEGIN !* 5A * RETRY ALLOWED 
12631 ; 6593 IF RETRY(SIX,WRITE,.LUN, .WRDCNT,.WPTR,.SECTOR) NEQ 0 
12632 ; 6594 THEN 'THE RETRY FAILED -- SYSTEM FATAL ERROR 
12633 : 6595 BEGIN 
2634 : 6596 WHY DROPTC.LUN] = CODE 
12635 : 6597 ERRBF (5401.MSG1,0); ae OPTION 5, RAND4 ERROR 01 *#«* 
2636 ; 6598 DODUC.LUN) : 
12637 : 6599 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
12638 ; 6600 END; 
12639 ; 6601 END; '* SA® 
12640 : 6602 (2) : 
12641 ; 6603 BEGIN ‘es 5B * FATAL CONTROLLER ERROR -~ NO RETRY ALLOWED 
12642 ; 6604 DROPTC.LUN) = 
12643 : 6605 PRRDE (3402, MSGI, oe” -_ OPTION 5, RAND4 ERROR 02 *ee« 
12666 : 6606 DODU(.LUN) : 
12645 ; 6607 LEAVE i ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
12666 : 6608 END; « 58 « 
12647 : 6609 3) : 
12648 : 6610 BEGIN '* SC ® FATAL DRIVE ERROR -- NO RETRY ALLOWED 
12649 ; 6611 ERRDF (5403, MSG1,0); ‘eeee OPTION 5, RAND4 ERROR 03 e082 


SEQ 0286 





r — ——— a — < a 
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SEQ 0287 


12651 ;MLX4 23-0ct-1980 15:01:43 TOPS-20 Bliss-16 V2(206) | 
| \c60¢ 3 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23-Oct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (51) 

12654 ; 6612 WHY DROPTC. LUN] = CODE_6; 

12655 ; 6613 DODD(.LUN); 

12656 ; 6614 LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

12657 ; 6615 END; ‘'* 5¢ * 

12658 ; 6616 

12659 ; 6617 TES; 

12660 ; 6618 

12661 ; 6619 COMMAND = CHOOSE(); 

12662 ; 6620 IF . COMMAND EQL READ 

12663 ; 6621 THEN 

12664 ; 6622 BEGIN 

12665 ; 6623 PTR = 

12666 ; 6624 VALUE = ore eAbC. LUN, .WRDCNT,.RPTR,.SECTOR); 

12667 ; 6625 END 

12668 ; 6626 ELSE 

12669 ; 6627 es. 

12670 ; 6628 PTR = 

12671 ; 6629 VALUE = WOHEEKC. LUN, .WRDCNT, .WPTR,.SECTOR); 

12672 : 6630 END; 

12673 ; 6631 '+ 

12674 ; 6632 ' SEE HOW SUCCESSFUL THE OPERATION WAS: 

12675 : 6633 \- 

12676 ; 6634 SELECTONE .VALUE OF 'SEE "SYSERR' FOR DEFINITION 

12677 ; 6635 SET 'OF ERROR # CONTAINED IN ‘VALUE' 

12678 ; 6636 (0) : 

12679 ; 6637 IF .COMMAND EQL READ 

12680 ; 6638 THEN 

12681 ; 6639 BEGIN 

12682 ; 6640 IF (DBL_VALUE = DOUBLE_CHECK(.WPTR,.RPTR,.WRDCNT)) NEQ 0 

12083 ; 6641 THEN 

12684 ; 6642 BEGIN 

12685 ; 6643 SAYWHO(.LUN); 

12686 ; 6644 PRINTB(SAY1, MSGS); 

12687 ; 6645 ''ECC LOGIC FAILED TO DETECT pare ERROR’ 

12688 ; 6646 PRINTB(FMTI2A,. .DBL VALUE, .DBL_VALUE) ; 

12689 ; 6647 rer DATA: XXXRXX AT “LOCATION, yyvyyy" 

12690 : 6648 DBL_VALUE = .DBL_VALUE + BUF S12 2; 

12691 ; 6649 PRIRTBCFATI2B, OBL VALUE,. ALUE); 

12692 ; 6650 '*BAD DATA: PPPPPP AT *LOEAT ION 9aaQaa' 

12693 ; 6651 WHY _DROPTC. LUN] = CODE_8; 

12694 ; 6652 ERRBF (5404,MSG1,0); . OPTION 5, RAND4 ERROR 04 *ee* 

12695 ; 6653 DODU(.LUN); 

12696 ; 6654 LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 

12697 ; 6655 D; 

12698 ; 6656 END; 

12699 : 6657 (1) : 

12700 ; 6658 BEGIN '* 5D * RETRY ALLOWED 

12701 ; 6659 IF RETRY(SIX,.COMMAND,.LUN, .WRDOCNT,.PTR,.SECTOR) NEQ 0 

12702 ; 6660 THEN 'THE RETRY FAILED -- SYSTEM FATAL ERROR 

12703 ; 6661 BEGIN 

12704 ; 6662 WHY DROPTC.LUN) = CODE 
| 12705 ; 6663 ERRDF (5405 ,MSG1,0); febee OPTION 5, RAND4 ERROR 05 tee 
| 
| 


co 
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| 12707 :MLX4 


12708 

12709 

12710 ; 6664 
12711 ; 6665 
12712 ; 6666 
12713 ; 6667 
127164 ; 6668 
12715 ; 6669 
12716 ; 6670 
12717 ; 6671 
12718 ; 6672 
12719 ; 6673 
12720 ; 6674 
12721 ; 6675 
12722 ; 6676 
12723 ; 6677 
12724 ; 6678 
12725 ; 6679 
12726 ; 6680 
12727 ; 6681 
12728 ; 6682 
12729 ; 6683 
12730 ; 6684 
12731 ; 6685 
12732 ; 6686 
12733 ; 6687 
12734 ; 6688 
12735 ; 6689 
12736 ; 6690 
12737 ; 6691 
12738 ; 6692 
12/39 ; 6693 
12740 ; 6694 
12741 ;: 6695 
12742 ; 6696 
12743 ; 6697 
12744 ; 6698 
12745 ; 6699 
12746 ; 6700 
12747 ; 6701 
12748 ; 6702 
12749 ; 6703 
12750 ; 6704 
12751 ; 6705 
12752 ; 6706 
12753 ; 6707 
12754 ; 6708 
12755 ;: 6709 
12756 ; 6710 
12757 ; 6711 
12758 ; 6712 
12759 ; 6713 
12760 ; 6714 
12761 ; 6715 


23-0ct-19 
; TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23-0ct-19 


t-1980 15:01:43 TOPS=20 Bliss-16 V2(206) | 
80 14:57:05 PA:<ROSEN>MLX4.BLI.1 (51) 

DODU(.LUN); 

LEAVE LOOP; 'JUMP JUST BEYOND END OF BLOCK * 4 * 


END; 
END; '* 5D * 


BEGIN !* 5E * FATAL CONTROLLER ERROR == NO RETRY ALLOWED 
WHY DROPTC.LUN] = CODE_S; 

ERRBF(5406,MSG1,0); Teet* OPTION 5, RAND4 ERROR 06 **** 
DODU(.LUN); 

LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 


END; !* 56 « 
j ° 


BEGIN !* 5F * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
ERRDF(5407,MSG1,0); ‘ee OPTION 5, RAND4 ERROR 07 *ee* 

WHY _DROPTC.LUN] = CODE_6; 

pop0(.LUN); 

LEAVE LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
END; !* 5F ® 


4) ;: 
BEGIN ‘!* 5G *  UNRECOVERABLE DATA ERROR 


(5) 


ISOLATE); 

ERRDF(5408,MSG2,0);  !*#** OPTION 5, RAND4 ERROR 08 *ee 
WHY_DROPTC.LUN) = CODE_7; 

pop0(.LUN); 


LEAVE LOOP: ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
END; !* 5G * 

BEGIN !* 5H * RECOVERABLE DATA ERROR 

ISOLATE(); 

IF .ERROUT 


THEN PRINTB(FMT10B,.CHAN); 
by BIT QQ’ 
OLDSEC = .MLEL; 
OLDCHN = .CHAN; 
ee es Le ee EQL 5 
HEN 
IF ((.MLEL EQL .OLDSEC) AND (.CHAN EQL .OLDCHN)) 
THEN 
BEGIN 
IF .ERROUT 
THEN 
ERRHRD(5409,MSG4,0); !*t** OPTION 5, RAND4 ERROR 09 *e** 
UP_HARD_COUNT(.LUN, .BOARD) ; 
END 
ELSE 
BEGIN 
IF .ERROUT 
THEN 
ERRSOFT(5410,MSG3,0); !**** OPTION 5, RAND4 ERROR 10 **** 
UP_SOFT_COUNT(.LUN, BOARD) ; 


ELSE 


‘as a - wa petites 3 
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'RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS SEQ 0289 
12763 ;MLX4 23-0ct-1980 15:01:43 TOPS=-20 Bliss-16 V2(206) | 
igre ; TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23- i 1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (51) 


BEGIN 
6717 IF .ERROUT 
THEN 


6719 ERRSOFT(5411,MSG3,0); ees Pinion 5, RAND4 ERROR 11 *##* 
6720 UP SOFT _COUNT(. LUN, .BOARD 


END; 
6722 END; !* 5H * 
TES; 


6726 WPTR = .WPTR + 2; 

6727 END; '® 5 * END OF COUNTING LOOP FOR SECTOR eo 
6728 END; '® 4 * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 

6729 END; '® 3% END OF COUNTING LOOP FOR UNIT SELECTION 

6730 END; '® 2% END OF REPEAT LOOP FOR THIS ROUTINE 

6731 RETURN; 

6732 END; 't 1 * END OF ROUTINE 


.SBTTL RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 
070562 005222 RAND4: te R1,$SAVE5 : 


#24,SP 
12793 070572 012746 007330 MOV #RTNSD,-(SP) ; 6564 
12794 070576 012746 006514 MOV #SAY1,-(SP) 
2795 070602 012746 000002 MOV #2,-(SP) 
796 070606 010600 MOV SP ,RO : ,* 
797 070610 104414 TRAP 14 
798 070612 005066 000030 CLR —" ; COUNT 6566 


~ 
~“ 
-_ 
Se Se Ge Ge Ge Be Se Se Ge Se Se He Se GH Se Se Se 
o 
~“ 
~m 
= 


: PC,GENS : 
070626 013766 032474 000014 MOV OP meas te eae : 6569 


005066 000012 CLR A a ; KOUNT 


2 
2 
2806 070652 004737 062714 2$: JSR PC,RNDU : 6571 
2807 070656 010001 MOV RO,R1 ; *,LUN 

2808 070660 010137 002074 MOV R1,L$LUN ; LUN,* 6572 
2809 070664 012737 010706 030706 MOV #WBUFF ,WPTR ; 6573 
10 070672 012737 020706 030710 MOV #RBUFF .RPTR ; 6574 
1 070700 010102 MOV a} Me ; LUN,* 6582 


2 

3 070704 012766 000001 000010 MOV #1,10(SP) ; *,KOUNT2 6577 
4 070712 004737 062560 3$: JSR PC,RNDWC 3 6579 
5 070716 010004 MOV RO,R4 ; *,WROCNT 

6 070720 010446 MOV R4,-(SP) ; WROCNT,* 6580 
7 070722 004737 043770 JSR PC,SET.PTRS 


| — 
} rorro 
| ANN 
| O00 00 

—NO 

o 

o 

S 

— 

Ww 

~ 

ao 

Ww 

— 

oO 


j 
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RANDG TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT SEQ 0290 
/ 12819 sMLX4 23-0ct-1980 15:01:43 TOPS 
| \cest ; TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23-Oct-1980 14:57:05 PA:< 
| 12822 070726 010116 MOV R1, (SP) : LUN,* 6581 

12823 070730 004737 062614 JSR PC,RNDSEC 

12824 070734 010066 000010 MOV RO,10(SP) : *,SECTOR 

12825 740 010446 MOV R4,-(SP) : WROCNT,* 6582 

12826 070742 012746 000400 MOV #460,-(SP) 

12827 070746 004737 005056 JSR PC ,BLSDIV 

12828 070752 022626 CMP (SP)+,(SP)+ 

12829 070754 066600 000010 ADD 10(SP) ,RO : SECTOR,* 

12830 070760 020062 032516 CMP RO, TOP.SECT(R2) 

12831 070764 101411 BLOS 4 

12832 070766 016200 032516 MOV TOP. SECT(R2) ,RO ; 6583 

12833 070772 166600 000010 SUB 10(SP) ,RO : SECTOR,* 

12834 070776 000300 SWAB RO : 6582 

12835 071000 105000 CLRB RO 

12836 071002 010004 MOV RO,R4 : *,WRDCNT 6583 

12837 071004 062704 000400 ADD #400,R4 > *,WRDCNT 

12838 071010 010116 4$: MOV R1, (SP) : LUN,* 6585 

12839 071012 010446 MOV R4,-(SP) : WROCNT,* 

12840 071014 013746 030706 MOV WPTR,=-(SP) 

12841 071020 016646 000014 MOV 14(SP) ,-(SP) : SECTOR,* 

12842 071024 004737 042246 JSR PC WRITE 

12843 071030 010005 MOV RO,RS > ©, VALUE 

12844 071032 020527 000001 CMP R5,#1 : VALUE,* 6589 

12845 071036 001032 BNE 5$ 

12846 071040 012746 000006 MOV #6,-(SP) ; 6593 

12847 071044 012746 042246 MOV #WRITE,-(SP) 

12848 071050 010146 MOV R1,-(SP) : LUN,* 

12849 071052 010446 MOV R4,-(SP) : WRDCNT,* 

12850 071054 013746 030706 MOV WPTR,-(SP) 

12851 071060 016646 000030 MOV 30(SP),-(SP) : SECTOR,* 

12852 071064 004737 043046 JSR PC,RETRY 

12853 071070 062706 000014 ADD #14,SP 

12854 071074 005700 TST RO 

12855 071076 001446 BEQ 9$ 

12856 071100 112761 000004 032464 MOVB #4, ,WHY .DROPT(R1) > *,*(LUN) 6596 

12857 071106 104455 TRAP 55 ; 6597 

12858 071110 012431 WORD 12431 

12859 071112 010512 .WORD MSG1 

12860 071114 000000 .wORD 0 

12861 071116 010100 MOV R1,R0 : LUN,* 6598 

12862 071120 104451 TRAP 51 

12863 071122 000431 BR 7$ ; 6599 

12864 071124 020527 000002 5$: CMP R5,#2 > VALUE,* 6589 

12865 071130 001012 BNE 6$ 

12866 071132 112761 000005 032464 MOVB #5 ,WHY .DROPT(R1) > *,*(LUN) 6604 

12867 071140 104455 TRAP 55 ; 0605 

12868 071142 012432 .WORD 12432 

12869 071144 010512 .WORD MSG1 

12870 071146 000000 .WORD 0 

12871 071150 010100 MOV R1,R0 : LUN,® 6606 

12872 071152 104451 TRAP 51 3 

12878 071154 000414 BR 7$ ; 6607 
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/RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT SEQ 0291 
12875 sMLX4 23-0ct-1980 15:01:43 TOPS 
sore ; TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23-Oct-1980 14:57:05 PA:< 
12878 071156 020527 000003 6$: CMP R583 : VALUE,* 6589 
12879 071162 001014 BNE 9$ 
12880 071164 104455 TRAP 55 : 6611 
12881 071166 012433 WORD 12433 
12882 071170 010512 WORD MSG1 
12883 071172 000000 WORD 0 
12884 071174 112761 000006 032464 MOVB #6 ,WHY .DROPT(R1) : *,* (LUN) 6612 
12885 071202 010100 MOV R1,R0 ; LUN,* 6613 
12886 071204 104451 TRAP 51 
12887 071206 062706 000010 7$: ADD #10,SP : 6614 
12888 071212 000537 8$: BR 14$ 
12889 071214 004737 043010 9$: JSR Pc. CHOOSE : 6619 
12890 071220 010066 000034 MOV RO, 34(SP) : *, COMMAND 
12891 071224 005002 CLR R3 : 6620 
12892 071226 020027 042434 CMP RO, #READ : COMMAND, * 

12893 071232 001015 BNE 10$ 

12894 071234 005203 INC R3 

12895 071236 013766 030710 000032 MOV RPTR, 32(SP) : *,PTR 6623 
12896 071244 010146 MOV R1,-(SP) ; LUN,* 6624 
12897 071246 010446 MOV R4,-(SP) : WRDCNT,* 

12898 071250 013746 030710 MOV RPTR .=(SP) 

12899 071254 016646 000024 MOV 241SP,,-(SP) : SECTOR,* 

12900 071260 004737 042434 JSR PC,READ 

12901 071264 000413 BR 11$ 

12902 071266 013766 030706 000032 10$: MOV WPTR, 32(SP) : *,PTR 6628 
12903 071274 010146 MOV R1,-(5P) > LUN,* 6629 
12904 071276 010446 MOV R4,-(SP) ; WRDCNT,* 

12905 071300 013746 030706 MOV WPTR,-(SP) 

12906 071304 016646 000024 MOV 24(SP) ,-(SP) ; SECTOR,* 

12907 071310 004737 042622 JSR PC, CHECK 

12908 071314 010005 11$: MOV RO.RS > *,VALUE 

12909 071316 001076 BNE 15$ ; 6634 
12910 071320 006003 ROR R3 ; 6637 
12911 071322 103402 BLO 13$ 

12912 071324 000137 072304 12$: JMP 28$ 

12913 071330 013746 030706 13$: MOV WPTR,-(SP) : 6640 
12914 071334 013746 030710 MOV RPTR, -($P 

12915 071340 010446 MOV R4,-(SP) ; WRDCNT,* 

12916 071342 004737 041226 JSR PC ,DOUBLE . CHECK 

12917 071346 062706 000006 ADD #6,SP 

12918 071352 010066 000046 MOV RO, 46(SP) : *,DBL.VALUE 

12919 071356 001762 BEQ 128 

12920 071360 010146 MOV R1,-(SP) ; LUN,* 6643 
12921 071362 004737 033436 JSR PC, SAYWHO 

12922 071366 012716 010640 MOV #MSG5, (SP) : 6644 
12923 071372 012746 006514 MOV #SAY1,-(SP) 

12924 071376 012746 000002 MOV #2,-(SP) 

12925 071402 010600 MOV SP,RO ; SP,* 

12926 071404 104414 TRAP 14 

12927 071406 016616 000054 MOV 54(SP), (SP) : DBL.VALUE,* 6646 
12928 071412 017646 000054 MOV a54(SP),-(SP) : DBL.VALUE,* 

12929 071416 012746 006332 MOV #FMT12A,-(SP) 
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12 
12974 071612 
12975 071614 


12985 071646 


000003 


010000 
62 


000003 


000010 


000042 
000001 
000006 
000046 
000052 
000014 


000004 


000002 
000005 


000003 


23 ° 
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23-Oct-1980 1 


#3,-(SP) 
SP ,RO 


thes 62(SP) 
62(SP), (SP) 
062(SP),-(SP) 
#FMT12B,-(SP) 
#3,-(SP) 


1 
#10, WHY .DROPT(R1) 
55 


12434 
MSG1 


R1,R0 
51 

#42 ,SP 
20% 
R5,#1 


o 


#6,-(SP) 
46 (SP) ,-(SP) 
4 ,= (SP) 
~ (SP) 
BF iSP). - (SP) 
40(SP) ,-(SP) 
PC RETRY 


128 
+ Nmteotmage! 


#5, WHY .DROPT(R1) 
55 


12436 
MSG1 


. SP,* 


* ,DBL. VALUE 


DBL.VALUE,* 
DBL.VALUE,* 


s SP,e 
; *,*(LUN) 


; LUN,* 


; VALUE,* 


COMMAND , * 


SECTOR,* 


>; *,* (LUN) 


; LUN,* 


> VALUE,* 
3 *,* (LUN) 


; LUN,* 


> VALUE, * 


— 
aw 


SEQ 0292 


TOPS 
PA:< 


6648 
6649 


6651 
6652 


6653 
6654 
6634 
6659 


6662 
6663 


6664 


6665 
6634 


6670 
6671 


6672 


6673 
6634 


6677 
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a — 
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RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT SEQ 0293 
12987 ;MLX4 23-Oct-1980 15:01:43 TOPS 
if 949 : TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23-0ct-1980 14:57:05 PA:< 
12990 071650 012437 «WORD 12437 
12991 071652 010512 -WORD MSG1 
12992 071654 000000 «WORD 0 
12993 071656 112761 000006 032464 MOVB #6 ,WHY .DROPT(R1) 3 *,*(LUN) 6678 
12994 071664 010100 MOV R1,R0 ; LUN,* 6679 
12995 071666 104451 TRAP 
12996 071670 000416 BR 19$ : 6680 
12997 071672 020527 000004 18$: CMP R5,#4 ; VALUE,* 6634 
12998 071676 001017 BNE 21$ 
12999 071700 004737 035212 JSR PC, ISOLATE ; 6684 
13000 071704 104455 TRAP 55 ; 6685 
13001 071706 012440 WORD 12440 
13002 071710 010542 -WORD MSG2 
13003 071712 000000 -WORD 0 
13004 071714 112761 000007 032464 MOVB #7 WHY .DROPT(R1) 3 *,* (LUN) 6686 
13005 071722 010100 MOV RO ; LUN,* 6687 
13006 071724 104451 TRAP 51 
13007 071726 062706 000020 19$: ADD #20,SP ; 6688 
13008 071732 000137 072336 20$: JMP 298 
13009 071736 020527 000005 218: CMP R5,#5 ; VALUE,* 6634 
13010 071742 001160 BNE 28% 

13011 071744 004737 035212 JSR PC, ISOLATE : 6692 
13012 071750 032737 000001 002260 BIT #1 ,ERROUT : 6693 
13013 071756 001423 BEQ 22% 

13014 071760 017703 140442 MOV QML .REG*42 ,R3 6694 
13015 071764 006203 ASR R3 

13016 071766 006203 ASR R3 

13017 071770 006203 ASR R3 

13018 071772 006203 ASR R3 

13019 071774 006203 ASR R3 

13020 071776 006203 ASR R3 

13021 072000 042703 177700 BIC bbe of R3 

13022 072004 010346 MOV R3,- 

13023 0720 012746 006262 MOV nrAT10B -(SP) 

13024 072012 012746 000002 MOV #2,-45S 

13025 072016 010600 MOV SP7RO ; 

13026 072020 104414 TRAP 14 

13027 072022 062706 000006 ADD #6,SP 

13028 072026 017766 140376 000036 22%: MOV @ML .REG+44, 36(SP) 3 *, OLDSEC 6696 
13029 0720 017703 140366 MOV QML .REG+42,R5 3 6697 
13030 072040 006205 ASR R3 

13031 072042 006203 ASR R3 

13032 072044 006203 ASR R3 

13033 072046 006203 ASR R3 

13034 07205 620 ASR R3 

13035 072052 006203 ASR R3 

13036 072054 042703 177700 BIC #177700,R3 

13037 072060 010366 000040 MOV R3,40(SP) ; *,OLDCHN 

13038 072064 012746 000001 MOV #1,-(SP) : 6698 
13039 072070 016646 000046 MOV 46(SP) ,-(SP) ; COMMAND, * 

13040 072074 010146 MOV R1,-(SP) ; LUN,* 

13041 072076 010446 MOV R4,-(SP) ; WRDCNT,* 


MLX4 
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RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 


000137 


000052 


000005 
140276 


000040 
140260 


177700 


000001 


032360 
035302 


000001 


000001 


032360 
035430 


000002 


000010 
070712 


000036 


002260 


002260 


002260 


030706 


000012 


sMLX4 


23$: 


248: 


25%: 


268: 


278: 
28$: 


52(SP),=(SP) 
4O(SP) ,=(SP) 


AML .REG+44 , 36(SP) 
24$ 


40(SP) ,RO 
+ anaillinandaia 


R 
#177700,R3 
R3,R0 


— 


) 
PC,UP.HARD. COUNT 
27% 

#1, ERROUT 
26$ 


57 
12442 
MSG3 
0 


26% 
#1 ,ERROUT 
26% 


57 
12443 
MSG3 


0 

R1,-(SP) 

BOARD ,-(SP) 

PC ,UP.SOFT. COUNT 
(SP)+,(SP)+ 


FOO 
Sad 


; PTR,* 
; SECTOR,* 


; *,OLDSEC 
; OLDCHN,* 


; LUN,* 


LUN,* 


+ KOUNT2 
: KOUNI2,* 


23-0ct 
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23-0ct- 


-1 


980 15:01:4 
1980 14:57:0 


SEQ 0294 


Vw 


TOPS 
PA:< 


6700 
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RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT SEQ 0295 
13099 sMLX4 23-0ct-1980 15:01:43 TOPS 
seiat . TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 23-0ct-1980 14:57:05 PA:< 
13102 072336 005266 000012 298: INC 12(SP) ; KOUNT 6569 
13103 072342 026666 000012 000014 CMP 15, SP), 14(SP) ; KOUNT,* 

13104 072350 003002 BGT 30$ 

13105 072352 000137 070652 JMP 2$ 

13106 072356 005266 000030 30$: INC 30(S ; COUNT 6566 
13107 072362 026666 000030 000050 CMP 30( 5p), 50<SP) ; COUNT,REPEAT 

13108 072370 003002 BGT 31$ 

13109 072372 000137 070622 JMP 1$ 

13110 072376 062706 000032 31$: ADD £32, SP ‘ 6510 
‘outs 072402 000207 RTS 

13113 ; Routine Size: 457 words 

as : Maximum stack depth per invocation: 36 words 

13120 


MLKG 
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| 13122 


WAWWNAW NNW 
Wrorrnrrrnor 


ANEW OO DNAUES WN $0 OONAUEWN (OO ONAUEW 


PPP UTS UTES BS BB BS BE WANA 


ee ee ee ee ed ed ot wd od 2 
~N 


WANA WANN AWW NNW WWW WWW ANA WAWW 
ee el et tk et ee ae ed ed ad ad od wd od 


ee ee ee 
WAAL NIAAA AAW 
ee ek ee med ae wed cd aed ed ed od SH 


sMLX4 


Se Be Be Ge Se Be Be Be Se Be Se Be Se Be Fe Be Be Ge He Se Ge Se Be Be Se Ge Fe Ge Be Ge Be Be Ge Be Ge Ge Be Se Ge FH Se Ge Ge Ge Ge Se Ge Se Se Ge Ge Se 


743 TOPS=20 Bliss-16 V2(206). 
DEFINITION OF OPTION 5 5 PA: <ROSEN>MLX4.BLI.1 (52) 
ZSBTTL ‘DEFINITION OF OPTION 5' 


ROUTINE OPTS: NOVALUE = 
BEGIN !* 1 * 


144 
{ROUTINE : OPTS 
i PURPOSE: TO EXERCISE THE ML11 SYSTEMS UNDER TEST IN A RANDOM 
MANNER, SO AS TO SIMULATE THE FLEXIBILITY OF TESTING 
! THAT WOULD BE DONE BY AN OPERATING SYSTEM. 
THERE ARE 4 RANDOM TESTS WHICH ARE CALLED BY ‘OPTS' 
TO ACCOMPLISH ALL TESTING. IT IS THE RESPONSIBILITY 
OF THIS ROUTINE TO DECIDE HOW MANY TIMES THOSE 4 
RANDOM TESTS WILL BE EXECUTED. REFER TO ‘RAND1" TO 
"RANDG' ABOVE FOR MORE INFORMATION. 
LOCAL 

REPEAT; 
PRINTB(SAY2,WRD34,RINS); 


!*RUNNING OPTS’ 
REPEAT = 9 - .NUM_DRIVES; 'THE MORE UNITS THERE ARE ON THE SYSTEM, THE 
'FEWER TIMES EACH RANDOM TEST WILL BE RUN. 


INCR LUN FROM 0 TO (.LSUNIT - 1) DO 'SEE IF THERE ARE ANY UNITS 
BEGIN ‘* 2 * 'WHICH HAVE 64K CHIPS (ML11-B) 
IF .DRIVE_STATUSC.LUN) EQL ACTIVE 
THEN 
BEGIN !* 3 * 


BEGIN !* 4* 

REPEAT = 1; 'THERE IS AT LEAST 1 UNIT WHICK IS AN ML11-B, SO 
‘LOWER THE REPEAT TIME FOR ALL TESTABLE UNITS. 

EXITLOOP; 

END; 'e 4 * 


END; 'e B® 
END; 'e 2 


'¢ 

! AT THIS POINT, ‘REPEAT’ IS BASED ON THE SYSTEM CONFIGURATION. 

' NOW WEIGHT THE LOOP COUNTS OF THE 4 RANDOM TESTS SO THAT RAND1 

' AND RAND2 ARE MUCH QUICKER THAN RAND3 AND RAND4. RAND3S IS LONGEST. 


RAND1(. REPEAT); 


‘TEST USING RANDOM DATA 
RAND2( REPEAT) ; !TES 


$ 
T USING RANDOM DATA, WORD COUNTS 


SEQ 0296 


to 


MLXG 
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'RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 
| 


sMLX4 


Ww 
~m 
So 
o 
oo 
~“ 
Nm 
r~ 
o 
oO 


RORD ot ot ot 
—OOONOuUewr 


wy 


31 072570 
32 072572 


WWW NAAN WAAAY AWA 


rr 


000403 
005201 


DEFINITION OF OPTION 5 


RAND3( REPEAT) ; 
RAND4((. REPEAT * 16)); 


RETURN; 
END; 


005202 


000003 


000011 
032474 
002012 


032460 


177770 
000001 


004244 
000010 


032440 


000001 
000001 


‘es | *® 


137624 
137630 


OPTS: 


1$: 


23: 


ST US 
ST US 


23-0ct-1980 1 
23-0ct-1980 1 


5:01: 
4:57: 


4 
0 PA: <ROSEN>MLX4.BLI.1 


ING RANDOM SECTORS, DATA, WORD COUNTS 
ING RANDOM UNITS, SECTORS, DATA, WORD COUNTS 


-SBTTL OPTS DEFINITION OF OPTION 5 
JSR 1, $SAVE4 


#RTNS,=(SP) 
#WRD34 ,-(SP) 
#SAY2,-(SP) 
#3,-(SP) 
SP,RO 

14 


#11,R3 
NUM.DRIVES,R3 
| asa mt 


3$ 
R1,R2 
R2 


R2 


R2 
#ORIVE .STATUS,R2 
R2,-(SP) 


R1,-(SP) 
#177770, (SP) 


R 
PTABLE .ADDR(R2) ,R2 
6(R2) RO 
#177770,R0 

#7, AML .REG+10 

RO. aML.REG+10 
#1,aML .REG+26 

2$ 

#1,R3 

4$ 


R1 


SP,* 


* REPEAT 
* ,REPEAT 


LUN 
LUN,* 


LUN,* 


LUN,* 


* REPEAT 
LUN 


; TOPS=20 Bliss-16 V2(20 


6 
(5 


) 
2) 


SEQ 0297 


6735 
6755 


6758 
6761 


6763 


6766 


2 
$ 
237 072574 
239 072576 
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020104 


063116 
065022 
066670 


070562 
000010 


3$: 
4$: 


; Maximum stack depth per invocation: 


LX4 


: Routine Size: 


DEFINITION OF OPTION 5 


R1,R4 
1$ 


82 words 


13 words 


; LUN,* 

; REPEAT,* 
; REPEAT,* 
; REPEAT,* 
; REPEAT,* 


23-Oct-19 
23-0ct-19 


SEQ 0298 


743 TOPS 
5 


PA:< 


6783 
6784 
6785 
6786 


6735 


-— -——_ - — ee ~_ — 
i 
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13264 ;MLX4 23-0¢t-1980 15:01:43 
13668 : THE OPTION SCHEDULER 23-0¢t-1980 14:57:05 
13267 ; 6791 XSBITL ‘THE OPTION SCHEDULER’ 

13268 ; 6792 

13269 ; 6793 BGNTST; 

13270 ; 6794 

13271 ; 6795 ‘+4 

13272 ;: 6796 * ROUTINE: T1 

13273 ; 6797! 

13274 ; 6798 ‘| PURPOSE: THIS IS THE ONE MAIN TEST OF THE EXERCISER. IT LOOKS 
13275 ;: 6799! AT THE AVAILABILITY OF TEST OPTIONS AND MAKES CALLS TO 
13676 ; o000 | THE OPTIONS WHEN APPROPRIATE. 

13278 : 6802 | THE QUICK VERIFY PASS INCLUDES THE FOLLOWING ROUTINES: 
13279 ; 6803 | 

13280 ; 6804 (1) INTEGRITY 

13281 ; 6805! (2) OPT1 

13282 ; 6806 | (3) OPT2 

13283 ; 6807 | (4) OPT3 

13284 ; 6808 | 

13285 ; 6809 | SUBSEQUENT PASSES INCLUDE 

13286 ; 6810 ! 

13287 ; 6811! (1) OPTI " 
13288 ; 6812 ! (2) OPT2 

13289 ; 6813! (3) oPpT3 

13290 ; 6814 | (4) OPTS 

13291 ;: 6815 | (5) OPTS 

13292 ;: 6816 i- 

13293 ;: 6817 

13294 ; 6818 IF .QUICK NEQ 0 

13295 ; 6819 THEN ‘THIS IS THE QUICK VERIFY PASS 

13296 ; 6820 BEGIN 

13297 ;: 6821 PRINTB(CRLF); 

13298 ; 6822 PRINTB(SAYS, WRD2,PHR2,WRD4); 

13299 ; 6823 '"BEGIN QUICK VERIFY PASS" 

13300 ; 6824 INTEGRITY();: 

13301 ; 6825 END; 

13302 ; 6826 

13303 ; 6827 IF .DROP1 EQL 0 

13304 ; 6828 THEN ‘OPTION 1 IS AVAILABLE 

13305 ; 6829 OPT1(); 

13306 ; 6830 

13307 ; 6831 IF .DROP2 EQL 9 

13308 ; 6832 THEN ‘OPTION 2 IS AVAILABLE 

13309 ; 6833 OPT2(); 

13310 ;: 6834 

13311 ; 6835 IF .DROP3 EQL 0 

13312 ; 6836 THEN ‘OPTION 3 IS AVAILABLE 

13313 ; 6837 OPT3(); 

13314 ; 6838 

13315 ; 6839 IF .QUICK EQL 0 

13316 ; 6840 THEN 

13317 ; 6841 BEGIN 

13318 ;: 6842 If .DROPG EQL 0 


SEQ 0299 


TOPS=-20 Bliss-16 v2(206) 
PA:<ROSEN>MLX4.BLI.1 (53) 


os - <a S ie es <a a 
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13320 ;MLX4 


13353 ; THE OPTION SCHEDULER 

13323 ; 6843 THEN '‘!OPTION 4 IS AVAILABLE 
13324 ; 6844 OPT4(); 

13325 ; 4845 

13326 ; 6846 1F .DROPS EQL 0 

13327 ; 6847 THEN ‘!OPTION 5 IS AVAILABLE 
13328 ; 6848 OPTS(); 

13329 ; 6849 END; 

13330 ; 6850 

13331 ; 6851 ENDTST; 

13535 

13336 

13340 072650 005737 030712 $T1: 

13341 072654 001426 BEQ 
13342 072656 012746 006510 MOV 
13343 072662 012746 000061 MOV 
13344 072666 010600 MO 
13345 072670 104414 TRAP 
13346 072672 012716 006634 MOV 
13347 072676 012746 007352 MOV 
13348 072702 012746 006622 MOV 
13349 072706 012746 006534 MOV 
13350 072712 012746 000004 MOV 
13351 072716 010600 MOV 
13352 072720 104414 TRAP 
13353 072722 004737 044070 JSR 
13354 072726 062706 000014 ADD 
13355 072732 005737 002236 1$: TST 
13356 072736 001002 BNE 
13357 072740 004737 046316 JSR 
13558 072744 005737 002240 23: TST 
13359 072750 001002 BNE 
13360 072752 004737 050232 JSR 
13361 072756 005737 002242 3$: TST 
13362 072762 001002 BNE 
13363 072764 004737 053560 JSR 
13364 072770 005737 030712 4$: TST 
13365 072774 001012 BNE 
13366 072776 005737 002244 TST 
13367 073002 001002 BNE 
13368 073004 004737 055472 JSR 
13369 073010 005737 002250 5$: TST 
13370 073014 001002 BNE 
13371 073016 004737 072404 JSR 
13372 073022 000207 6$: RTS 
13373 ‘ ; 
13374 ; Routine Size: 


-SBTTL $11 THE OPTION SCHEDULER 
TST QUICK 


1$ 
#CRLF ,=(SP) 
o@ (SP) 
SP,RO 

14 

#WRDG, (SP) 
#PHR2,-(SP) 
#WRD2, (SP) 
#SAY3,-(SP) 
#4 ,-(SP) 
Cons 


; 
PC, INTEGRITY 
wid,sp 

DROP1 

2$ 

PC,OPT1 
DROP2 


3$ 
PC,OPT2 
DROPS 
4% 


PC ,OPTS 
QUICK 


6$ 
DROP4 
5$ 

PC ,OPT4 
DROPS 
6$ 
PC,OPTS 
PC 


54 words 


Wa 


TOPS-20 Bliss-16 V2 
PA:<ROSEN>MLX4.BLI. 


os 


SEQ 0300 


6818 
6821 
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T1 THE OPTION SCHEDULER SEQ 0301 
13376 MLX4 23-0¢t-1980 15:01:43 TOPS 
Vegi : THE OPTION SCHEDULER 23-0ct-1980 14:57:05 PA:< 
13379 ; Maximum stack depth per invocation: 6 words 
13384 
13385 
13389 
13390 .SBTTL 11 THE OPTION SCHEDULER 
13394 073024 T1:: 
13395 073024 004737 072650 1$: JSR PC,$T1 ; 6849 
13396 073030 104466 TRAP 66 
13397 073032 006000 ROR RO 
13398 073034 103773 BLO 1¢ 
13399 073036 000207 RTS PC 
13400 
13401 : Routine Size: 6 words 
13402 : Maximum stack depth per invocation: 0 words 
13407 
13408 
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13410 :MLX4 23-0ct-1980 15:01:43 
Fee : END OF PASS SUMMARY 23-0ct-1980 14:57:05 
3013 : 6859 %SBTTL ‘END OF PASS SUMMARY' 

6854 ROUTINE EOP: NOVALUE = 

6855 BEGIN !* 1* 

6856 

6857 

38 * ROUTINE: EOP 

6860 PURPOSE : TO PRINT A STATUS REPORT FOR EACH DRIVE. IF AN 


WRIPIMININSNPONPINI PND 2 es 
SOO ONAOUESWNH "ODO OnNCwu 


PERFORMANCE SUMMARY 


NUMBER OF hss TRANSFERRED: 
1028 MBYTES WRITTEN 
250 MBYTES READ 

1145 MBYTES WRITE CHECKED 


ye ae ae at et ot nt et et oe 


ee ee ed ed ed ed od 
Ww 
— 


WAWWNYIWANWNAWWANWAWWWNNANNANAA 


SRE 
WWAWWw 
NOW EWI 


ARRAY a. 
TRANSFER RETRIES: 0 


“WMO: O- 


SOFT ERROR COUNT 
ARR 1: 


a * ae COUNT : 
ARRAY 14: 1 


ARRAY 15: 1 
TRANSFER RETRIES: 0 


6899 LOCAL 
6900 SFT_TOT, HRD_TOT, TRY_TOT; 


6902 IF 


Ok tk ed ot ot 
$3 
“ 
GN 


3461 : 
13463 : 


— 
Ww 
a 
oa 
—m 


| 
: rs 
; i 
. i 
i 
2 i 
; i 
: i 
; i 
; i 
; i 
: i 
i 
“ i 
. i 
: i 
: i 
> i 
4 i 
: i 
4 i 

438 ; 6877 | aw ® — COUNT: 9 
13439 ; 6878 | 3: 
13440 ; 6879 | HARD ERROR COUNT: 11 

; ; 0: 
; i 
: i 
“ i 
4 i 
> i 
i 
i 
; i 
: i 
: i 
: i 
~ i 
: i 
: i 

: 


| 
| 
\ 


LOGICAL UNIT: 0 DRIVE: 1 SERIAL #: 


LOGICAL UNIT: 1 DRIVE: 1 SERIAL #: 9876 
DRIVE DROPPED aha yg FATAL ERROR) 


ARRAY HAS ANY HARD OR SOFT ERRORS, THEN ITS ERROR 
COUNT WILL APPEAR, AND IF THE COUNT IS TOO HIGH, 
THEN A DIAGNOSIS TO RUN THE ML11 PROM MAINTENANCE 
PROGRAM WILL ALSO APPEAR. 


THE FOLLOWING IS A SAMPLE REPORT FOR 2 DRIVES: 


: 9 
ARRAY 13: 9 --> RUN ML11 PROM MAINTENANCE PROGRAM 
ARRAY 15: 80 sal ec ML11 PROM MAINTENANCE PROGRAM 


. EOPSUM 
6903 THEN !THE OPERATOR HAS ALLOWED THE SUMMARY TO PRINT 


TOPS=20 Bliss-16 V2(206) | 


PA:<ROSEN>MLX4.BLI.1 


(54) 


SEQ 0302 
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'T1 THE OPTION SCHEDULER 
13606 sMLX4 


_ 
Ww 
Sa 
a 


| END OF PASS SUMMARY 
| 13469 : 6904 BEGIN !*2* 
| 6905 PRINTB(CRLF): 
6906 PRINTB(SAY1 ,PHR17) 
6908 - PRINTB(CRLF); 
6909 PRINTB(SAY1 ,PRKR12) ; 
6910 ‘NUMBER OF MBYTE 
PRINTB(FMT14,.WR MI 
PRINTB(FNT14, .RD MI 
Xx MBYTES R 
PRINTECEMT1 4, WC MI 
6916 '*XXXXX 
6917 INCR LUN FROM 0 To ¢ 
BEGIN !'* 3 * 
6919 UNIT = .DRIVE; 
6920 IF .DPR EQL 0 
6921 THEN PRINTB(FMT 
6922 ‘LOGIC 


6924 !* LOGICAL 
6925 Cel .DROPT DRIVES 


6927 BEGIN !* 4 * 


6930 SELECTONE WH 
6932 CCODE_1) : 
6934 CCODE_2) : 
6936 Ccope_3) : 
6938 [CODE_4) : 
6940 CCODE_5] : 
6942 CCODE_6) : 
6944 CCODE_7) : 


sss et 
a 
WNW 
w S a ee et et 
OonNNNN 
~N oOOnNnNe 
Bie Be Be Be Be Be Be Be Be Be Os Se Be Os Ss Oe Se Ve Se Ge Ss Oe Ge Ts Be Bs Bs Be Os Oe Oe Oe Os Bs Ses Os Os Os Oe Oe 5 Oe Oe Oe SHB See Se eee 
AAADRAO 
onovoono 
i ts ss 
WUrwrn— 


13510 

13511 6946 CCODE_8) : 

13512 6947 

13513 6948 TES; 

13514 6949 END; ‘#4 * 

13515 6950 

13516 6951 SFT_TOT = 0; 

13517 6952 HRD_TOT = 0; 

13518 6953 TRY_TOT = 0; 

13519 6954 INCR ARRAY FROM 
| 13520 6955 BEGIN 


'"XXXXX MBYTES WRIT 


6907 '"PERFORMANCE SUMMARY ' 


S TRANSFERED: 
Met PHR19); 


E 
are »PHR20); 
LLIONS ,PHR13); 


MBYTES waite CHECKED' 


-LSUNIT=1) DO 


4A,PHR7,.1.UN,WRD11, -DRIVE) 
AL UNIT: X DRIVE: Y' 


6923 ELSE SAYWHO(. LUN) ; 


UNIT: X DRIVE: Y 
C.LUN] EQL ACTIVE 


SERIAL #: Z227' 


6928 PRINTB(SAY2, WRD11,WRD21) ; 
6929 "DRIVE DROPPE 


Y_DROPTC.LUN] OF 


PRINTBCFMT2, pte BE 
(NOT POWERED UP)" 
PRINTBCFRT CAL ,CAUSE2); 


mii UNIT)" 
ee pani?! cAUS SE3); 
(OPER ATOR SELECTED TEST LIMITS INCORRECTLY)" 


PRINTBCERT2, CAUS 
Reig FAILED FOR A NON-FATAL ERROR)" 
PRINTBCFRTS. CAUSES); 

(CON TROLLER’ FATAL ERROR)" 
PRINTBCEMTE. CAUS 
IVE FATAL ERROR)’ 
pRINTBOFRTS, CAUSE7); 

(ECC HARD ERROR)" 
PRINTBOEMTS, CAUSES) ; 
é“Toeic FAILURE)" 


0 10 15 DO 


3 TOPS=20 Bliss-16 V2(206 
5 PA: <ROSEN>MLX4.BLI.1 ( 


(206) 
1 (54) 


SEQ 0303 
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HE OPTION SCHEDULER SEQ 0304 
13522 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Bliss-16 V2(206). 
ETH ; END OF PASS SUMMARY 23-0ct-1980 14:57:05 PA: <ROSEN>MLX4.BLI.1 (54) 
13525 ; 6956 SFT_TOT = .SFT_TOT + .SOFTSC.LUN, .ARRAY,0,16,0); 

13526 ; 6957 HRD_TOT = .HRD_TOT + .HARDSC.LUN, .ARRAY,0,16,0); 

13527 ; 6958 TRY_TOT = .TRY_TOT + .TRIESC.LUN,.ARRAY,0,16,0); 

13528 ; 6959 END; 

13529 ; 6960 PRINTB(FMT7,PHRS,.SFT_TOT); 

13530 ; 6961 '" SOFT ERROR COUNT: DODDD' 

13531 ; 6962 IF .SFT_TOT NEQ C 

13532 ; 6963 THEN 

13533 ; 6964 INCR ARRAY FROM 0 TO 15 DO 

13534 ;: 6965 IF .SOFTSC.LUN,.ARRAY,0,16,0] NEQ 0 

13535 ; 6966 THEN 

13536 ; 6967 BEGIN 

13537 ; 6968 earner” -ARRAY, .SOFTSC.LUN, .ARRAY,0,16,0)); 
13538 : 6969 ARRAY XX: yyyyy" 

13539 ; 6970 '4 

13540 : 6971 ' NOW SEE IF THRESHOLDS FOR SOFT ERRORS 

13541 ; 6972 ' HAVE BEEN REACHED FOR THIS ARRAY BOARD: 

13542 ; 6973 \- 

13543 ; 6974 IF ((.ARR_TYP EQL 0) AND 

13544 ; 6975 (.SOFTSC.LUN, ARRAY, 0, 16,0] GEQ S16K_LIMIT)) 
13545 ; 6976 THEN PRINTB(FMT2, MSG2); 

13546 ; 6977 ==> RUN mit PROM MAINTENANCE PROGRAM’ 
13547 ;: 6978 1F ((.ARR_TYP EQL 1) 

13548 ; 6979 (.SOFTSC.LUN, bAaRAY. 2 § 16,0] GEQ S64K_LIMIT)) 
13549 : 6980 THEN PRINTBCFMT2 MSG2) 

13550 : 6981 ==> RUN MiLi1 PROM MAINTENANCE PROGRAM’ 
13551 ;: 6982 END; 

13552 ; 6983 PRINTB(FMT7,PHR18,.HRD_ TOT) 

13553 ; 6984 '* HARD ERROR COUNT: ppbpo" 

13554 ; 6985 IF .HRD_TOT NEQ 0 

13555 ; 6986 THEN 

13556 ; 6987 INCR ARRAY FROM 0 TO 15 DO 

13557 : 6988 IF .HARDSC.LUN,.ARRAY,0,16,0] NEQ 0 

13558 ;: 6989 THEN 

13559 ; 6990 BEGIN 

13560 ; 6991 PRINTORERTS, ARRAY, .HARDSC.LUN, .ARRAY,0,16,01); 
13561 ; 6992 ARRAY XX: YYYYY' 

13562 ; 6993 '¢ 

13563 ; 6994 ' NOW SEE IF THRESHOLDS FOR HARD ERRORS 

13564 ; 6995 | HAVE BEEN REACHED FOR THIS ARRAY BOARD: 

13565 ; 6996 ie 

13566 ; 6997 IF ((.ARR_TYP EQL 0) A 

13567 ; 6998 (. HARDSC.LUN, ‘ore 0. 16,0] GEQ H16K_LIMIT)) 
13568 ; 6999 THEN PRINTB(FMT 2," 

13569 ; 7000 --> RUN a ait PROM MAINTENANCE PROGRAM' 
13570 ; 7001 IF if. ARR_TYP EQL 1) AND 

13571 ; 7002 HARDSC.LUN, ARRAY. 0,16,0] GEQ H64K_LIMIT)) 
13572 ;: 7003 THEN’ PRINTB(FMT2, 

13573 : 7004 ==> RUN mit PROM MAINTENANCE PROGRAM’ 
13574 ;: 7005 END; 

13575 ; 7006 PRINTB(FMT7, PHR6,.TRY_TOT) 

13576 ; 7007 '* TRANSFER RETRIES: pbpoo" 
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T1 THE OPTION SCHEDULER SEG 0305 
13578 ;MLX4 23-0ct-1980 15:01:43 TOPS=20 Biiss-16 V2(206). 
1 32h8 5 END OF PASS SUMMARY 23-0ct-1980 14:57:05 PA:<ROSEN>MLX4.BLI.1 (54) 
13581 ; 7008 IF .TRY_TOT NEQ 0 
13582 ; 7009 THEN 
13583 ; 7010 INCR — FROM 0 TO 15 D 
13584 ; 7011 IF .TRIESC.LUN,.ARRAY wR 16,0] NEQ 0 
13585 ; 7012 THEN "PRINIBCPRTS, ARRAY, "RIESE. LUN, .ARRAY,0,16,0]); 
13586 ; 7013 < ARRAY XX: YYYYY" 
13587 ; 7014 END; 'e 3 * 
13588 ; 7015 PRINTB(CRLF); 
13589 ; 7016 END; ‘#2 * 
13590 ; 7017 
13591 ; 7018 RETURN; 
13592 ; 7019 
13593 ; 7020 END; '*® 1 * 
13597 
13598 .SBTTL EOP END OF PASS SUMMARY 
13602 073040 004137 005222 EOP: JSR R1,$SAVE5 } 6854 
13603 073044 162706 000006 SUB #6,SP 
13604 073050 032737 000001 002256 BIT #1,E0PSUM : 6902 
13605 073056 001002 BNE 1$ 
13606 073060 000137 074660 JMP 31$ 
13607 073064 012746 006510 1$: MOV #CRLF,-(SP) : 6905 
13608 073070 012746 000001 MOV #1,-(SP) 
13609 073074 010600 MOV SP,R0 >: SP,* 
13610 073076 104414 TRAP 14 
13611 073100 012716 007764 MOV #PHR17, (SP) ; d 6906 
13612 073104 012746 006514 MOV #SAY1,-(SP) 
13613 073110 012746 000002 MOV #2,-(SP) 
13614 073114 010600 MOV SP,RO » $Pe 
13615 073116 104414 TRAP 14 
13016 073120 012716 006510 MOV #CRLF, (SP) : 6908 
13617 073124 012746 000001 MOV #1,-(SP) 
13618 073130 010600 MOV SP,RO s $P,e 
13619 073132 104414 TRAP 14 
13620 073134 012716 007624 MOV #PHR12, (SP) ‘ 6909 
13621 073140 012746 006514 MOV #SAY1,-(SP) 
13622 073144 012746 000002 MOV #2,-(SP) 
13623 073150 010600 MOV SP,RO : SP,@ 
13624 073152 104414 TRAP 14 
13625 073154 012716 010032 MOV #PHR19, (SP) : 6911 
13626 073160 013746 032336 MOV WR. MILLIONS,-(SP) 
13627 073164 012746 006470 MOV #FMT14,-(SP) 
13628 073170 012746 000003 MOV #3,-(SP) 
13629 073174 010600 MOV SP,RO s S$P,e 
13630 073176 104414 TRAP 14 
13631 073200 012716 010052 MOV #PRR20, (SP) ; 6913 
13632 073204 013746 032344 MOV RD.MILLIONS,-(SP) 
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EOP END OF PASS SUMMARY 


— 
Ww 
o 
= 
= 
oO 
~“ 
w 
~m 
nm 
- 
ooo°o—-CoOo 
—3 3 Oo 
Nm = 
Fa 
—_ 
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13650 073264 010100 
13651 073266 006300 


eeee 


= = 
Ww 
oa 
oa 
& 
oO 
~“ 
Ww 
Ww 
uw 
So 
ooo 
_ 
~m 
~ 
= 
oa 


006470 
000003 


007662 
000003 


002012 
074626 


032440 


6 
000400 
032440 
000006 
006662 
007472 


005640 
000005 


000012 


033436 


032462 


177770 
000001 


004244 
000010 


006744 
006662 
006522 


000044 


137062 
137052 


sMLX4 


2$: 


3$: 
4$: 


END OF PASS SUMMARY 


#FMT14,=(SP) 
#3,-(SP) 
SP,RO 

14 


#PHR13, (SP) 
WC MILLIONS, -(SP) 


#FMTIG,-(SP) 
#3,-(SP) 
-RO 
4 
LSUNIT,44(SP) 
R1 
29$ 
R1,RO 
RO 
PTABLE .ADDR(RO) ,R3 
6(R3) RG 
#177770,R4 


4400, ,AML .REG+12 


PTABLE .ADDR(RO) ,R3 
6(R3) ,-(SP) 
pe a 


#12,SP 
4% 


R1,-(SP) 
PC ,SAYWHO 
1,R0 


R 

RO 

RO 

#ODROPT .DRIVES,RO 
+ stiel 


ni f7r70, (SP) 


PC ,BL$GT2 
#10,SP 
RO 


14$ 
#WRD21,-(SP) 
#WRD11,-(SP) 
#SAY2,-(SP) 


. SP,* 


; #.* 


; LUN 
; LUN,* 


: LUN,* 
. SP,* 
> LUN,* 


; LUN,* 


; LUN,* 


SEQ 0306 


6915 


6917 


6919 


6920 
6921 


6920 
6923 


6925 


6928 
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EOP END OF PASS SUMMARY SEQ 0307 
13690 sMLX4 23-0¢t-1980 15:01:43 TOPS 
108) ; END OF PASS SUMMARY 23-0¢t-1980 14:57:05 PA:< 
| 13693 073462 012746 000003 MOV #3,-(SP) 
13694 073466 010600 MOV SP,RO : SP,* 
| 13695 073470 104414 TRAP 14 
13696 973472 005003 CLR R3 : 5930 
13697 073474 156103 032464 B1SB WHY .DROPT(R1),R3 : *(LUN),* 
13698 073500 020327 000001 CMP R3,#1 
13699 073504 001011 BNE 5$ 
13700 073506 012746 010102 MOV #CAUSE1,-(SP) : 6932 
13701 073512 012746 005602 MOV #FMT2,-(SP) 
13702 073516 012746 000002 MOV #2,-(SP) 
13703 073522 010600 MOV SP,RO : SP,* 
13704 073524 104414 TRAP 14 
13705 073526 000523 BR 12% 
13706 073530 020327 000002 5$: CMP R3,#2 : 6930 
13707 073534 001011 RNE 6$ 
13708 073536 012746 010124 MOV #CAUSE2,-(SP) : 6934 
13709 073542 012746 005602 MOV #FMT2,-(SP) 
13710 073546 012746 000002 MOV #2,-(SP) 
13711 073552 010600 MOV SP,RO : SP,* 
13712 073554 104414 TRAP 14 
13713 073556 000507 BR 12% 
13714 073560 020327 000003 A$: CMP R383 ; 6930 
12715 073564 001011 BNE 7$ 
13716 073566 012746 010150 MOV #CAUSE3,-(SP) : 6936 
13717 073572 012746 005602 MOV #FMT2,-(SP) 
13718 073576 012746 000002 MOV #2,-(SP) 
13719 073602 010600 MOV SP RO : SP,* 
13720 073604 104414 TRAP 14 
13721 073606 000473 BR 128 
13/22 073610 020327 000004 7$: CMP R384 : 6930 
13723 073614 001011 BNE 8$ 
13724 073616 012746 010224 MOV #CAUSES ,-(SP) : 6938 
13725 073622 012746 005602 MOV #FMT2,-(SP) 
13726 073626 012746 000002 MOV #2,-(SP) 
13727 073632 010600 MOV SP RO : SP,* 
13728 073634 104414 TRAP 14 
13729 073636 000457 BR 128 
13730 073640 020327 000005 8$: CMP R3,45 ; 6930 
13731 073644 001011 BNE 9$ 
13732 073646 012746 010300 MOV #CAUSES,-(SP) : 6940 
13733 073652 012746 005602 MOV #FMT2,-(SP) 
13734 073656 012746 000002 MOV #2,-(SP) 
13735 073662 010600 MOV SP,RO : SP,* 
13736 073664 104414 TRAP 14 
13737 073666 000443 BR 128 
13738 073670 020327 000006 9$: CMP R3,#6 : 6930 
13739 073674 001011 BNE 10$ 
13740 073676 012746 010332 MOV #CAUSE6,-(SP) : 6942 
13741 073702 012746 005602 MOV #FMT2,-(SP) 
13742 0737 012746 000002 MOV #2,-(SP) 
| 13743 073712 010600 MOV SP,RO > SP, 
| 13744 073714 104414 TRAP 14 


MLK4 MACRO M1113 pees -80 09:59 PAGE 353 


EOP END OF PASS SUMMARY 


r— 


3800 074144 001454 


000007 
010356 


005602 
000002 


000010 
010400 


005602 
000002 


000006 
000010 
000044 
000042 


030732 
031332 
031732 


000017 
000044 


000003 


000052 


030732 


000044 
000042 


sMLX4 


10$: 


11$: 


15$: 


16$: 


END OF PASS SUMMARY 


12$ 

R3,#7 

11$ 
#CAUSE7,=(SP) 
#FMT2,-(SP) 
#2,-(SP) 
SP,RO 

“4 

12$ 

R3,#10 

13$ 


#CAUSEB,=(SP) 
#FMT2,-(SP) 
ae 


’ 


R 

SOF TS(R3) 44 (SP) 
HARDS(R3) ,42(SP) 
TRIESC(R3) RS 

R2 

R2,#17 

15% 

44(SP), (SP) 


R 
#SOFTS,R3 
(R3) 

19% 


SEQ 0308 
23-0ct-1980 15:01:43 TOPS 
23-0ct-1980 14:57:05 PA:< 

6930 
6944 
; SP,* 
6930 
6946 
5 +.* 
: 6927 
; SFT.TOT 6951 
; HRD.TU: 6952 
; TRY.TOT 6953 
: tUN,* 6956 
; ARRAY 6954 
; 6956 
; ARRAY,* 
¢ @,SFT.7OT 
; *,HRD.TOT 6957 
: *, TRY.TOT 6958 
; ARRAY 6954 
; ARRAY,* 
s $F1.70T.® 6960 
; * 
: SFT.TOT 6962 
; ARRAY 6964 
; 6965 
; ARRAY,* 


MLX4 MACRO M1113 24-0CT-80 
EOP END OF PASS SUMMARY 


011346 

13806 074150 010246 
13807 074152 012746 006156 
13808 074156 012746 000003 

13809 074162 010600 

13810 074164 104414 
3811 074166 032777 002000 

12 074174 001015 


074 
3 074176 021327 000012 


07 012746 010542 
074210 012746 005602 
074214 012746 000002 


WWW WWW 
2 G9 09 G9 On OD Cn OD Co 


MMR 2 2 a oS 
~ uw 


074224 062706 000006 
1 074230 032777 002000 


36 
823 074240 021327 000012 
3825 074246 012746 010542 


3826 074252 012746 005602 
3827 074256 012746 000002 


3 
830 07 706 000006 
4h 074272 sth 000010 
beth 074300 020227 000017 
35 074306 016616 000050 
7431 


000003 


80 Go 00 So So 
SORTS 
ess 
~4 
rs 


33 
o 
~“ 
Ww 
Ww 
So 
_ 
So 
= 
S 
—t 
= 


ottee 005766 000056 


074350 062703 031332 


COnounlwn— 
sesss 
ol e nee 
oa 
oa 
Ww 
o 
Ww 


7 006156 
746 000003 


ttitt +3 333333 
OnFWn—o nm 
ssssees 
eascscees 

& 


002000 


09:59 PAGE 354 


136214 


136152 


136002 


3MLX4 


17$: 


18$: 
19$: 


208: 


218: 


END OF PASS SUMMARY 


(R3) ,=(SP) 
R2,-(SP) 
#FMT9,-(SP) 
#3,-(SP) 

SP,RO 

14 

#2000 ,aML.REG+24 
17$ 

(R3) ,#12 

17$ 


#MSG2 ,-(SP) 
#FMT2,-(SP) 
a" 


#6,SP 

#2000, aML.REG+24 
18$ 

(R3) #12 

18$ 

#MSG2,-(SP) 


#FMT2,-(SP) 
+P 


R 
R2,#17 
16$ 


R 
#HARDS R35 
(R3) 


24% 
(R3) ,-(SP) 
R2,-(SP) 


14 
#2000 ,aML .REG+24 


ARRAY ,* 


SP,* 


SP,* 


SP,* 


ARRAY 
ARRAY,* 


HRD.TOT,* 


SP,* 
HRD.TOT 
ARRAY 
ARRAY ,* 


ARRAY ,* 


SP,* 


SEQ 0309 


TOPS 
PA:< 


6968 


6974 
6975 
6976 


6978 
6979 
6980 


6967 
6964 


6983 


6985 


6987 
6988 


6991 


6997 
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‘EOP END OF PASS SUMMARY SEQ 0310 
| 13858 MLX4 23-Oct-1980 15:01:43 TOPS 
| 13859 : END OF PASS SUMMARY 23-0ct-1980 14:57:05 PA:< 

13861 074406 001015 BNE 22% 

13862 074410 021327 000012 CMP (R3),#12 ; 6998 

13863 074414 002412 BLT 22$ 

13 07441 012746 010542 MOV #MSG2,-(SP) $ 6999 

13865 074422 012746 005602 MOV #FMT2,-(SP) 

13866 074426 012746 000002 MOV #2,-(SP) 

13867 074432 010600 MOV SP.RO : SP,* 

13868 074434 104414 TRAP 14 

13869 074436 062706 000006 ADD #6,SP 

13870 074442 032777 002000 135740 22%: BIT #2000, aML.REG+24 : 7001 

13871 074450 001415 BEQ 23$ 

13872 074452 021327 000012 CMP (R3) #12 : 7002 

13873 074456 002412 BLT 233 

13874 074460 012746 010542 MOV #MSG2,-(SP) ; 7003 

13875 074464 012746 005602 MOV #FMT2.-(SP) 

13876 074470 012746 000002 MOV #2,-(SP) 

13877 074474 010600 MOV SP.RO : SP,* 

13878 074476 104414 TRAP ‘14 

13879 074500 062706 000006 ADD #6,SP 

13880 074504 062706 000010 23$: ADD #10,SP : 6990 

13881 074510 005202 24$: INC R2 3; ARRAY 6987 

13882 074512 020227 000017 CMP R2,#17 : ARRAY, * 

13883 074516 003711 BLE 21$ 

1 074520 010516 25$: MOV R5, (SP) : TRY.TOT,* 7006 

13885 074522 012746 007450 MOV #PHR6,-(SP) 

13886 074526 012746 006070 MOV #EMT7.-(SP) 

13887 074532 012746 000003 MOV #3,-(SP) 

13888 074536 010600 MOV SP.RO ; SP,* 

13889 074540 104414 TRAP —s-'14 

13690 074542 005705 TST R5 : TRY.TOT 7008 

13891 074544 001425 BEQ 28% 

13892 074546 005002 CLR R2 : ARRAY 7010 

13893 074550 010403 26$: MOV R4,R3 : 7011 

13894 074552 060203 ADD R2.R3 : ARRAY,* 

13895 074554 303 ASL R3 

13896 074556 016303 031732 MOV TRIES(R3) .R3 

13897 074562 001412 BEQ 27$ 

13898 074564 010346 MOV R3,-(SP) s 7012 

13899 074566 010246 MOV R2.-(SP) ; ARRAY, * 

13900 074570 012746 006156 MOV #FMT9, -(SP) 

13901 074574 012746 000003 MOV #3,-(SP) 

13902 074600 010600 MOV SP.RO : SP,* 

13903 074602 104414 TRAP —-14 

13904 074604 062706 000010 ADD #10,SP 

13905 074610 005202 27$: —siINC R2 : ARRAY 7010 

13906 074612 020227 000017 CMP R2,817 : ARRAY,* 

13907 074616 003754 BLE 26$ 

13908 074620 062706 000024 28%: ADD #24,SP : 6918 

13909 074624 005201 INC R1 : LUN 6917 

13910 074626 020166 000044 29$: CMP R1,44(SP) : LUN,* 

13911 074632 002002 BGE 30$ 

13912 074634 000137 073264 JMP 2$ 
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/EOP END OF PASS SUMMARY SEQ 0311 
13914 sMLXK4 23-Oct-1980 15:01:43 TOPS 
1? ; END OF PASS SUMMARY 23-0ct-1980 14:57:05 PA:< 
13917 074640 012716 006510 308: MOV #CRLF, (SP) : 7015 
13918 074644 012746 000001 MOV #1,-(SP) 
13919 074650 010600 MOV SP,RO : SP, 
13920 074652 104414 TRAP 14 
13921 074654 062706 000042 ADD #42,SP : 6904 
13922 074660 062706 000006 31$: ADD #6,SP : 6854 
13983 074664 000207 RTS PC 
13925 ; Routine Size: 459 words 
138 ; Maximum stack depth per invocation: 39 words 
13932 


MACRO M1113 a ia 09:59 PAGE 357 


13987 074774 
13988 


LX4 
'EOP END OF PASS SUMMAR 
13934 sMLK4 
13935 ; 
13936 
13937 : 7021 
13938 ; 7022 
13939 ; 7023 
13940 : 7024 
13941 : 7025 
13942 : 7026 
13943 ; 7027 
13944 : 7028 
13945 : 7029 
13946 : 7030 
13947 : 7031 
13948 : 7032 
13949 : 7033 
13950 : 7034 
13951 : 7035 
13952 : 7036 
13953 : 7037 
13954 ; 7038 
13955 ; 7039 
13956 : 7040 
13957 : 7041 
13958 : 7042 
13962 
13963 
13967 074666 005237 
13968 074672 023727 
9 074700 001015 
13970 074702 012746 
13971 074706 012746 
13972 074712 012746 
13973 074716 012746 
13974 074722 012746 
13975 074726 010600 
13976 074730 104414 
13977 074732 000414 
13978 074734 013746 
13979 074740 012746 
13980 074744 012746 
13981 074750 012746 
13982 074754 012746 
13983 074760 0106 
13984 074762 104414 
13985 074764 004737 
13986 074770 0627 
000207 


23-0ct-1980 15:01:43 
CLEANUP CODING SECTION 23-0ct-1980 14:57:05 
ZSBTTL "CLEANUP CODING SECTION’ 
BGNCLN; 
'+ 
| THE CLEANUP CODING SECTION IS EXECUTED AFTER 
i EACH PASS THROUGH THE EXERCISER 
EOP_COUNT = .EOP_COUNT + 1; 
If .EOP_COUNT EQL 
THEN PRINT SATS, WRD3,PHR2, gWh04) 
D QUICK VERIFY PAS 
ELSE pRintacERT’ gWRD5. WRD4 , .EOP_COUNT) ; 
* END PASS XX #« 
EOP(); 
RETURN; 
ENDCLN; 
.SBTTL LCLEAN CLEANUP CODING SECTION 
030722 LCLEAN: INC EOP. COUNT : 
030722 000001 ow EOP. . COUNT, #1 : 
006634 MOV #WRDG ,-(SP) : 
007352 MOV #PHR2,-(SP) 
006630 MOV #WRD3,-(SP) 
006534 MOV #SAY3,-(SP) 
000004 MOV #4,-(SP) 
MOV SP,RO ; SP,* 
TRAP 14 
BR 2$ 5 
030722 1$: MOV EOP .COUNT, -(SP) ; 
006634 MOV #WRDS ,-(SP) 
006630 MOV #WRD3,-(SP) 
005610 MOV #FMT3,-(SP) 
004 MOV #4,-(SP) 
MOV SP,RO ; SP.* 
TRAP 14 
073040 23: JSR PC EOP : 
000012 ADD wie, SP : 


TOPS-20 Bliss-16 V2(206) 


PA:<ROSEN>MLX4.BLI.1 


(55) 


SEQ 0312 


7031 
7033 


7034 


7033 
7036 


7038 
7020 


r — 


5 
14009 074776 


14012 075004 


14039 
14043 075014 
14044 075014 


14025 ; 
14029 
Hort 075006 


075012 
000000 
000000 


075012 
000000 


000207 


074666 


LASTAD; 
BGNSETUP (0); 
ENDSETUP; 


89 


sMLX4 
; CLEANUP CODING SECTION 


; Routine Size: 36 words — ; 
; Maximum stack depth per invocation: 5 words 


-SBTTL LSCLEAN CLEANUP CODING SECTION 


LSCLEAN:: 
JSR PC,LCLEAN : 
TRAP 12 
RTS PC 


; Routine Size: 4 words | ‘ 
; Maximum stack depth per invocation: 0 words 


BLSLAS::.WORD TSFREE 
«WORD <<TSFREE-<BLSLAS+4>>/2> 
TSFREE::.WORD 0 


L$LAST== 


BLSLAS+4 
TSPTHV 0 


TIL SEND.LINK CLEANUP CODING SECTION 


.$B 
SEND.LINK:: 
RTS PC A 


SEQ 0313 | 
3 “TOPS | 
5 PA:< | 
7049 
7042 


a 


(MUX4 = MACRO_M1113_ 24-OCT-80 09:59 PAGE 359 
'SEND.LINK CLEANUP CODING SECTION 


14046 sMLX4 


| 14047 : CLEANUP CODING SECTION 
| 
| 


; Routine Size: 1 word | ; 
; Maximum stack depth per invocation: 0 words 


aba 
te 
oo 
wiv 
-oO 
. . 


14058 ; 7047 END 
059 ; 7048 
14060 ; 7049 ELUDOM 


= 
= 
uw 
oO 


; OTS external references 

14066 -GLOBL BLSGT2, SSAVES, $SAVE4, $SAVE3 
14067 -GLOBL SEAVES. BL$PU2, BLSSHF, BLSDIV 
14068 -GLOBL BLSMOD, BLSMUL 


—_ 
= 
So 
o 
“ 


7050 
: 7051 
14077 : Size: 8779 code + 5384 data words 
; Run Time: 01:54.5 
; Elapsed Time: 09:06.0 


: seo Used: 150 pages 
; Compilation Complete 


14083 000001 -END 


—— 
5 
oo 
~~ 
ow 


— 
= 
o 
~s 
Le) Oo 
Sete One 


23-0ct-19 
23-0ct-19 


@oco 
oo 


SEQ 0314 
3 TOPS 
5 PA:< 





MLXG MACRO M1113 24-OCT-80 09:59 PAGE 359~1 


SYMBOL TABLE SEQ 0315 
/ADR = 000020 G CSAUTO= 000061 DOUBLE 041226 FSINIT= 000006 ISMSG = 000041 
ASSEMB= 000010 CSBRK = 000022 DRIVE. 032460 G FSJMP = 000050 ISPROT= 000040 
ANK 032362 CSBSEG= 000004 DROPNE 002234 G FSMOD = 000000 ISPTAB= 000041 
BASE.A 030724 C$BSUB= 900002 DROPT. 032462 G FSMSG = 000011 I$SPWR = 000041 
110 = 000001 G CSCEFG= 000045 DROP! 002236 G FSPROT= 000021 I$RPT = 000041 
B1TOO = 000001 G CSCLCK= 000062 DROP2 002240 G SPWR = 000017 I$SEG = 000041 
BiT01 = 000002 G CSCLEA= 000012 DROPS 002242 G FSRPT = 000012 ISSETU= 000041 
BITO2 = 000004 G C$CLOS= 000035 DROPS 002244 G FSSEG = 000003 I$SFT = 000041 
BiTO3 = 000010 G CSCLP1= 000006 DROPS 002250 G FSSOFT= 000005 I$SRV = 000041 
B1T04 = 000020 G CSCVEC= 000036 ECCDIS 002254 G FSSRV = 000010 I$SUB = 000041 
BITOS = 000040 G CSDCLN= 000044 EF.CON= 000036 G F$SUB = 000002 ISTST = 000041 
BIT06 = 000100 G C$DODU= 000051 EF .NEW= 000035 G F$SW = 000014 1.AM.D 032354 
BITO7 = 000200 G CSDRPT= 000024 EF .PWR= 000034 G FSTEST= 000001 JSJMP = 000167 
BIT08 = 000400 G C$DU = 000053 EF .RES= 000037 G GEN1 036014 LAU 005536 
BITO9 = 001000 G CSEDIT= 000003 EF .STA= 000040 G GEN2 036522 LAUTO §= 005372 
BIT1 = 000002 G CSERDF= 000055 END.RB= 030706 GENS 036556 LCLEAN 074666 
BIT10 = 002000 G CSERHR= 000056 END.WB= 020706 GEN4 036654 LDU 005404 
BIT11 = 004000 G CSERRO= 000060 EOP 3040 G N5 036710 LIMIT 002222 G 
BIT12 = 010000 G CSERSF= 000054 EOPSUM 002256 G GETCNT 036176 LINIT 035556 
B1T13 = 020000 G CSERSO= 000057 EOP.CO 030722 GET.WR 044034 LOE = 040000 G 
BIT14 = 040000 G CSESCA= 000010 ERRBLK 002200 G GSCNTO= 000200 LOT = 000010 G 
BIT15 = 100000 G CSESEG= 000005 ERRMSG 002176 G GSDELM= 000372 LOW.SE 032476 G 
BIT2 = 000004 G CSESUB= 000003 ERRNBR 002174 G G$DISP= 000003 LRPT 005354 
BITS = 000010 G CSETST= 000001 ERROUT 002260 G GSEXCP= 000400 LSECT 002226 G 
BITS = 000020 G CSEXIT= 000032 ERRTYP 002172 G GSHILI= 000002 L$ACP) = 002110 G 
BITS = 000040 G C$GETB= 000026 EVL = 000004 G G$LOLI= 000001 L$APT 002036 G 
BIT6 = 000100 G C$GETW= 000027 ESEND = 002100 G$NO_ = 000000 L$AU 005540 G 
BIT? = 000200 G CSGMAN= 000043 ESLOAD= 000035 GSOFFS= 000400 L$AUT 002070 G 
BIT8 = 000400 G C$GPHR= 000042 FILLER 036356 GSOFSI= 000376 L$AUTO 005374 G 
BIT9 = 001000 G C$GPLO= 000030 FMT1A = 005550 GS$PRMA= 000001 L$CCP 002106 G 
BL$DIV 005056 G C$GPRI= 000040 FMT1B = 005564 GS$PRMD= 000002 L$CLEA 074776 G 
BL$GT1 004122 G C$INIT= 000011 FMT10A= 006206 GSPRML= 000000 002032 G 
BL$G12 004244 G CSINLP= 000020 FMT10B= 006262 GSRADA= 000140 L$DEPO 002011 G 
BLSLAS 075006 G CSMANI= 000050 FMT11 = 006276 GSRADB= 000000 L$DESC 002130 G 
BL 005070 G C$MEM = 000031 FMT12A= 006332 GSRADD= 000040 L$DESP 002076 G 
BLSMUL 004632 G C$MSG = 000023 FMT12B= 006400 GSRADL= (0120 LSDEVP 002060 G 
BLSPU1 004406 G CSOPEN= 000034 FMT13 = 006446 G$RADO= (00020 LSDISP 002204 G 
BL$PU2 004502 G CSPNTB= 000014 FMT14 = 006470 GSXFER= 000004 L$DLY 002116 G 
BLSSHF 005102 G CSPNTF= 000017 FMT15 = 006502 G$YES = 000010 L$OTP 002040 G 
BOARD 032360 CSPNTS= 000016 FMT2 = 005602 HARDS 031332 LSDTYP 002034 G 
BOE =0 G CSPNTX= 000015 FMT3 = 005610 HELP = 000000 L$DU 005526 G 
BR.LEV 030730 C$Q10 = 000377 FMT4A = 005640 HOE = 100000 G L$DUT 002072 G 
CAUSE1= 010102 C$RDBU= 000007 FMT4B = 005674 IBE = 010000 G L$DVTY 002122 G 
CAUSE2= 010124 CSREFG= 000047 FMT4C = 005712 IDU = 000040 G LSEF 002052 G 
CAUSE3= 010150 CSRESE= 000033 FMTS == 005742 R_ = 020000 G LSENVI 002044 G 
CAUSE4= 010224 CSREVI= 000003 FMT6 += = 006020 INIT.A 033120 LSERRT 002172 G 
CAUSE5= 010300 CSRFLA= 000021 FMT? = 006070 INTEGR 044070 LSETP. 002102 G 
CAUSE6= 010332 C$RPT = 000025 FMT8 = 006110 ISOLAT 035212 LSEXP1 002046 G 
CAUSE7= 010356 CSSEFG= 000046 FMT9 == 006156 IS = 000100 G LSEXP4 002064 G 
CAUSE8= 010400 CSSPRI= 000041 FSAU_ = 000015 IXE = 004000 G LSEXP5 002066 G 
CHECK 042622 C$SVEC= 000037 FSAUTO= 000020 I$AU_ = 000041 LSHARD 002264 G 
CHOOSE 043010 CSTPRI= 000013 FSBGN = 000040 ISAUTO= 000041 LSHIME 002120 G 
CLRIBL 032572 DATA.C 030716 FSCLEA= 000007 ISCLN = 000041 LSHPCP 002016 G 
COMP.C 030720 DECODE 035106 FSDU = 000016 I$DU = 000041 LSHPTP 002022 G 
CONFIG 033714 DFPTBL 002210 G FSEND = 000041 ISHRD = 000041 L$HW 002210 G 
CRLF = 006510 DIAGMC= 000000 FSHARD= 000004 ISINIT= 000041 LSICP_ 002104 G 
C$AU = 000052 DIVMOD 004674 FSHW = 000013 I$MOD = 000041 LSINIT 036004 G 





MLXG MACRO M1113 24-OCT-80 09:59 PAGE 359-2 
SYMBOL TABLE SEQ 0316 


ILSLADP 002026 G ONEFIL= 000001 P.AAI 006020 P.ACN 007164 QH4 002417 
LSLAST= 075012 G ONLY 002232 G P.AAJ 006070 P.ACO 007172 Qs1 002646 
L$LOAD 002100 G OPT1 046316 P.AAK 006110 P.ACP 007176 QS10 003513 
LSLUN 002074 G OPT2 050232 P.AAL 006156 P.ACQ 007202 QS11 003532 
LSMREV 002050 G OPTS 053560 P.AAM 006206 P.ACR 007206 QS12 003614 
LSNAME 002000 G OPT4 055472 P.AAN 006262 P.ACS 07212 Qs13 003633 
LSPRIO 002042 G OPTS 072404 P.AAO 006276 P.ACT 007216 QS14 003665 
LSPROT 004014 G OSAPTS= 000001 P.AAP 006332 P.ACU 007250 Qs15 003717 
LSPRT 002112 G U = 000001 P.AAQ 006400 P.ACV 007256 QS16 003764 
LSREPP 002062 G OSBGNR= 00000 P.AAR 006446 P.ACW 007264 Qs2 002713 
LSREV 002010 G O$BGNS= 000001 P.AAS 006470 P.ACX 007272 Qs3 003000 
L$RPT 005362 G U = 000001 P.AAT 006502 P.ACY 007300 QS4 003033 
L$SOFT 002440 G OSERRT= 000001 P.AAU 006510 P.ACZ 007306 Qs5 003065 
L$SPC_ 002056 G O$GNSW= 000001 P.AAV 006514 P.ADA 007314 QS6 003132 
LSSPCP 002020 G O$POIN= 000001 P.AAW 006522 P.ADB 007322 Qs7 003436 
LSSPTP 002024 G O$SETU= 000001 P.AAX 006534 P.ADC 007330 Qs8 003455 
L$STA 002030 G PATTBL 032536 G P.AAY 006552 P.ADD 007336 Qs9 003474 
L$SwW 002222 G PATTER 030714 P.AAZ 006574 P.ADE 007352 QUICK 030712 
L$TEST 002114 G PHR1 = 007336 P.ABA 006622 P.ADF 007370 RANDOM 005352 G 
LS$TIML 002014 G PHR10 = 007542 P.ABB 006630 P.ADG 007412 RAND1 063116 
LSUNIT 002012 G PHR11 = 007562 P.ABC 006634 P.ADH 007426 RAND2 065022 
L10000 002220 PHR12 = 007624 P.ABD 006642 P.ADI 007450 RAND3 066670 
L10001 002262 PHR13 = 007662 P.ABE 006652 P.ADJ 007472 RAND4 070562 
L10002 002330 PHR14 = 007710 P.ABF 006662 P.ADK 007510 RANGE 002224 G 
L10003 002646 PHR15 = 007726 P.ABG 006670 P.ADL 007522 RBUFF 020706 
MARPAT 002246 G PHR16 = 007744 P.ABH 006700 P.ADM 007542 RCBUFF= 021706 
MLB10 = 007114 PHR17 = 007764 P.ABI 006706 P.ADN 007562 RDBUFF= 020706 
MLB11 = 007122 PHR18 = 010010 P.ABJ 006714 P.ADO 007624 RD.COU 032340 
MLB12 = 007126 PHR19 = 010032 P.ABK 006722 P.ADP 007662 RD.MIL 032344 
MLB13 = 007132 PHR2 = 007352 P.ABL 006734 P.ADQ 007710 RD.THO 032342 
MLB14 = 007136 PHR20 = 010052 P.ABM 006744 P.ADR 007726 READ 042434 
MLB15 = 007142 PHR3 = 007370 P.ABN 006754 P.ADS 007744 REFRES 002252 G 
MLB16 = 007146 PHR4 = 007412 P.ABO 006760 P.ADT 007764 RETRY 043046 
MLB17 = 007152 PHRS = 007426 P.ABP 006766 P.ADU 010010 RETRY] 032356 
MLB18 = 007156 PHR6 = 007450 P.ABQ 006776 P.ADV 010032 RE2 5250 
MLB19 = 007164 PHR7? = 007472 P.ABR 007012 P.ADW 010052 RE3 005246 
MLB2 = 007052 PHR8 = 007510 P.ABS 007022 P.ADX 010066 RE4 005244 
MLB20 = 007172 PHRO = 007522 P.ABT 007034 P.ADY 010070 RN 05256 G 
MLB21 = 007176 PNT = 001000 G P.ABU 007040 P.ADZ 010072 RNDSEC 062614 
MLB22 = 007202 PRI = 002000 G P.ABV 007046 P.AEA 010076 RNOU 062714 
MLB23 = 007206 PRIO0 = 000000 G P.ABW 007052 P.AEB 010102 RNDWC 062560 
MLB24 = 007212 PRI01 = 000040 G P.ABX 007056 P.AEC 010124 RPTR 30710 
MLB3 = 007056 PRIO2 = 000100 G P.ABY 007062 P.AED 010150 RTNO = 007216 
MLB4 = 007062 PRIO3 = 000140 G P.ABZ 007066 P.AEE 010224 RINi = 007250 
MLBS5 = 007066 PR104 = 000200 G P.ACA 007072 P.AEF 010300 RTN2 = 007256 
MLB6 = 007072 PRIOS = 000240 & P.ACB 007076 P.AEG 010332 RTINS = 007264 
MLB? = 007076 R106 = 000300 G P.ACC 007102 P.AEH 010356 RIN4 = 007272 
MLBB8 = 007102 PR1I07 = 000340 G P.ACD 007106 P.AE! 010400 RTNS = 007300 
MLB9 = 007106 PTABLE 032440 G P.ACE 007114 P.AEJ 010424 RINSA = 007306 
ML.REG 032364 G AAA 005550 P.ACF 007122 P.AEK 010512 RTNSB = 007314 
MSGO = 010424 -AAB 005564 P.ACG 007126 P.AEL 010542 RTNSC = 007322 
MSG1 = 010512 P.AAC 005602 P.ACH 007132 P.AEM 010610 RTNSD = 007330 
MSG2 = 010542 P.AAD 005610 P.ACI] 007136 P.AEN 010624 SAYWHO 033436 
MSGS = 010610 P.AAE 005640 P.ACJ 007142 P.AEO 010649 SAY1 = 00653 
MSG4 = 010624 P.AAF 005674 P.ACK 007146 QH1 002330 SAY2 = 006522 
MSG5 = 010640 P.AAG 005712 P.ACL 007152 QH2 002345 SAYS = 006534 
° 032474 G P.AAH 005742 P.ACM 007156 QH3 002367 SAYS = 006552 


MLX4 MACRO M1113 24-OCT-80 09:59 PAGE 359-3 


SYMBOL TABLE 

SAYS ae +s 3h: TRT11 = 010076 TSTEMP= 000000 WC.MIL 
‘SEED1 005344 G TSECT 002230 G T$TEST= 000000 wC.THO 
SEED2 005346 G TSARGC= 000002 TSTSTM= 177777 WOBUF F 
SEEDS 005350 G TSCODE= 017130 T$TSTS= 000000 WHY.DR 
SELPAT 036156 TSERRN= 000000 TS$HAR= 010002 WPTR 
SERVIC 032562 G TSEXCP= 000000 T$$HW = 010000 WRD11 
SET.PT 043770 TSFREE 075012 G TS$PRO= 010004 WRD15 
SFPTBL 002222 G TSGMAN= 000000 T$S$SOF= 010003 WRD16 
SOFTS 030732 TSHILI= 000012 T$$SW = 010001 WRD17 
START. 041324 TSLAST= 000000 T1 073024 G WRD18 
SVCGBL= 000001 T$SLOLI= 000001 UAM = 000200 G WRD19 
SVCINS= 000001 TSLSYM= 010000 UP.HAR 035302 WRD2 
SVCSUB= 000001 TSNEST= 177777 UP.RD. 042062 WRD20 
SVCTAG= 000001 TSNSO = 000000 UP.SOF 035430 WRD21 
SVCTST= 000001 TSNS1 = 000021 UP.WC. 042154 WRD24 
SYSERR 037000 TSPTHV= 000000 G UP.WR. 041770 WRD25 
SSLSYM= 010000 TSPTNU= 000000 030726 WRDS 
TOP.SE 032516 G TSSAVL= 177777 WAITER 041320 WRD34 
TRIES 031732 TSSEGL= 177777 WBUFF 010706 WRD35 
TRTOO = 010066 TSSUBN= 000000 WCBUFF= 011706 WRD36 
TRTO1 = 010070 TSTAGL= 177777 WC.COU 032346 WRD37 
TRT10 = 010072 TSTAGN= 010005 


- ABS. 075016 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 31277 ms east, PAGES) 

DYNAMIC MEMORY: atte WORDS ( 82 PAGES 

ELAPSED TIME: 00:16:12 

ML11X.BIN/EN:AMA,CZMLBA/CR/=SP=SVC/ML ,ONEFILEX,MLX1,MLX2,0TS,RANDOM,MLX35,MLX4 


—-ooO 


007022 


. 
Po] 
LJ 
= 
a" 
i 


007034 


0 
072650 


DAAQAD|ACG 


SEQ 0317 


CZMLBA 
SYMBOL 


ooo 
ue 


ViFWnN—-OoO OoOn 


CON OUE WR 2 eS SS S| OOO 


BL$G11 
BLSGT2 


BLSLAS 


BLSPU2 
BLSSHF 


BOARD 


BOE 

BR.LEV 

CAUSE i 
| CAUSE2 


| 


none 


CREATED BY MACRO ON 24-0CT-80 AT 10:07 


005056 


004122 
004244 


075006 


004502 
005102 


032360 


er REFERENCE 


DD ADOQAAGA DAGQVW AAAAAAIAAAIAIAAAIAIAIAAIMAIAAAAAAaacy 


221-6639 


#1 


t 
apopapas 


233-7240 
359-14067 


214-6242 


#129-2178 
137-2594 
138-2621 


248-8065 


292-10502 
359-14068 


PAGE 1 
CREF 


v01 


253-8331 
243-7783 
351-13682 
294-10583 


85-311 


48-193 
58-608 


205-5773 
248-8039 
286-10155 
5339-13072 


205-5774 


264-8926 
249-8094 
359-14066 
296-10667 


126-2050 


49-218 
59-635 


205-5782 
248-8056 
291-10418 
5339-13089 


*205-5786 


5307-11286 


258-8632 


296-10691 


126-2057 


54-408 
64-842 


*205-5785 


252-8296 
291-1 


2 
0435 


5313-11632 


276-9577 


359-14068 


151-3200 


54-411 
64-846 


6478 


19- 
53- 
06 


8 
1 


317 


-11256 


5324-12229 


296-10682 


151-3209 


54-415 
64-852 


219-6495 
263-8896 
307-11277 


SEQ 0318 


5324-12243 


5302-10996 


159-3633 


54-419 
65-884 


221-6622 
265-8915 
318-11886 


CZMLBA CREATED BY MACRO ON 24-OCT-80 AT 10:07 cner 2 


“SYMBOL CROSS REFERENCE v01 SEQ 0319 


SYMBOL VALUE REFERENCES 

‘CAUSES = 010150 #123-1865 139-2692 =: 140-2723 = 3352-13716 

CAUSES = 010224 #123-1866 = 352-13724 

‘CAUSES = 010300 #123-1867 = 350-13732 

CAUSE6 = 010332 #123-1868 352-13740 

|CAUSE7 = 010356 #123-1869 = 3353-13752 

'CAUSEB §== 010400 #123-1870 353-13760 

CHECK 042622 #197-5380 199-5476 203-5664 203-5696 203-5707 219-6502 219-6507 221-6593 229-7040 

gh3-/876, qeo-8 13), 260-8726 278-9690 283-9968  288-10248 303-11086 315-11721 326=12327 

|cwouse 043010 #199=5469 229-7022 244-7852 249-8112 260-8708 277-9664 282-9943  287-10222 303-11068 
314-11699 325-12305 336-12889 

ICLRTBL 032572 #125-1996 150-3168 

COMP.C 030720 #118-1603 #1563521 159-3623 

CONFIG 033714 #137-2568 = 151-3202 

CRLF = 006510 #121-1770 = 129-2188 = 130-2217 204-5741 = 204-5761 34513342 35013607 350-13616 356-13917 

C$AU = =_:« 000052 #38-13 

C$AUTO = 000061 #38-13 

C$BRK = 000022 #38-13 

C$BSEG = 000004 #38-13 

C$BSUB = 000002 #38-13 

CSCEFG = 000045 #38-13 

CSCLCK = 000062 #38-13 

C$CLEA = 000012 #38-13 

C$CLOS = 000035 #38-13 

C$CLP1 = 000006 #38-13 

CS$CVEC = 000036 #38-13 

CSDCLN = 000044 #38-13 

C$p0DU = 000051 #38-13 

CSDRPT = 000024 #38-13 

C$puU = =_—«000053 #38-13 

C$EDIT = 000003 438-13 38-65 

CSERDF = 000055 #38-13 

CSERHR = 000056 #38-13 

CSERRO = 000060 #38-13 

CSERSF = 000054 #38-13 

C$ERSO = 000057 #38-13 

C$ESCA = 000010 #38-13 

C$ESEG = 000005 #38-13 

C$ESUB = 000003 #38-13 

C$ETST = 000001 #38-13 

C$EXIT = 000032 #38-13 

C$GETB = 000026 #38-13 

C$GETw = 000027 #38-13 

C$GMAN = 000043 #38-13 

C$GPHR = 000042 #38-13 

C$GPLO = 000030 438-13 

C$GPRI = 000040 #38-13 

C$INIT = 000011 #38-13 

C$INLP = 000020 #38-13 

C$MANI = 000050 #38-13 

C$MEM = 000031 #38-13 

C$MSG = 000023 #38-13 


CZMLBA CREATED BY MACRO ON 24-OCT-80 AT 10:07 caer 3 


SYMBOL CROSS REFERENCE vor SEQ 0320 

‘SYMBOL VALUE REFERENCES 

\CSOPEN = 000034 #38-13 

CSPNTB = 000014 #38-13 

ICSPNTF = 000017 #38-13 

CSPNTS = 000016 #38-13 

CSPNTX = 000015 #38-13 

C$aio = 000377 #38-13 

CSRDBU = 000007 #38-13 

CSREFG = 000047 #38-13 

CSRESE = 000033 #38-13 438-13 

CSREVI = 000003 #38-13 38-65 

CSRFLA = 000021 #38-13 

C$RPT = 000025 #38-13 

CSSEFG = 000046 #38-13 

CSSPRI = 000041 #38-13 

CS$SVEC = 000037 #38-13 

CSTPRI = 000013 #38-13 

DATA.C 030716 #118-1601  *156-3520 159-3625 

DECODE 035106 #142-2834 144-2901 205-5776 

DFPTBL 002210 G = #39117 

DIAGMC = 000000 - 38-13 

DIVMOD 004674 #70-1096 = 72-1176 = 73-1207 

DOUBLE 041226 #180-4629 216-6321 229-7049 245-7882 249-8139 260-8735 278-9699 283-9977 288-10257 
303-11095 315-11730 326-12336 336-12916 

DRIVE. 032460 G 2-176 B3-192_-#119-1649 126-2045 150-3177, 214-6236 227-6937. 263-7777 248-8084 

; 258-8626 276-9571 296-10676 301-10986 313-11606 323-12205 342-13211 

DROPNE 002234 G = #40-160 «120-1680 126-2063 

DROPT. 032462 G 82-176 += 83-203 #119-1652 126-2052 351-13676 

DR 002236 G  -#40=161 «120-1680 #127-2069 3845-13355 

DROP2 002240 G = #40-162 «= 120-1680 *127-2070 3345-13358 

DROPS 002242 G = #40-163 = 120-1681 #127-2071 345-1336! 

DROP, 002244 G = #40-164 = 120-1681 #127-2072 345-1336 

DROPS 002250 G = #40-166 = 120-1681 *127-2073  345-1336y 

ECCDIS 002254 G = #40-169. 120-1682 129-2183 172-4218 = 172-4250 173-4302 175-4391 184-4865 

EF.CON = 000036 G #120-1714 

EF.NEW = 000035 G  #120-1715 

EF:PWR = 000034 G #120-1716 

EF:RES = 000037 G = #120-1713 

EF.STA = 000040 G = #120-1712 

END.RB = 030706 #121-1748 

END.WB = 020706 #121-1747 206-5844 

EOP 073040 G - 794 #350-13602 357-13985 

EOPSUM 002256 G = #40-188 ~=—120-1682 3509-13604 

EOP.CO 030722 #118-1605 *126-2022 *357-13967 357-13968 357-13978 

ERRBLK 002200 G #3994 

ERRMSG 002176 G #3994 

ERRNBR 002174 G #39-94 

ERROUT 002260 G = #40-190__— 120-1682 144-2902 173-4265 177-4535 194-5201 196-5302 198-5403 202-5647 
204-5733 204-5753 217-6414 218-6467 219-6481 219-6488 220-6562 221-0615 221-6625 
221-6632 231-7150 232-7203 232-7213 232-7220 © 247-7979 247-8028 248-8042 248-8049 
251-8236 252-8289 252-8299 252-8306 262-8836 263-8889 263-8899 263-8906 280-9799 
281-9852 281-9862 281-9869 285-10078 286-10131 286-10141 286-10148 290-10358 291-10411 
291-10421 291-10428 305-11196 306-11249 306-11259 306-11266 317-11826 318-11879 318-11889 


CZMLBA 
SYMBOL 
SYMBOL 


“ERRTYP 
EVL 
/ESEND 
ESLOAD 
FILLER 
FMTIA 
FMTIB 


FMTI0A 
FMT10B 


FMT11 
FMT12A 


FMT12B 
FMT13 


FMT14 
FMT15 


FSSEG 
FSSOFT 


CREATED BY 


CROSS REFERENCE 
LUE 


VA 


ww 


002172 G 
000004 G 


006262 


006276 
006332 


006400 
006446 


006470 
006502 


005602 


005610 


REFERENCES 
318-11896 


#121-1767 
#121-1768 
#121-1769 
175-4374 
176-4456 
#121-1752 


MACRO ON 24-OCT-80 AT 


327-12428 


10:07 
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164-3839 
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194-5209 
354-13837 


354-13852 


39-134 


44-408 
44-382 


42-312 
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329-12495 
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351-13664 


196-5310 
355-13886 


355-13900 
42-300 
38-13 
38-13 
42-312 


42-314 


329-12502 


247-7990 
338-13023 


250-8156 
250-8163 


198-5411 


42-317 


338-13012 


251-8247 


261-8752 
261-8759 


44-408 
38-13 
38-13 
42-317 


42-320 


339-13065 


262-8847 


278-9712 
278-9719 


43-325 


339-13075 


280-9810 


283-9990 
283-9997 


43-328 


339-13082 


285-10089 


288-10270 
288-10277 


38-13 
38-39 


43-328 


43-337 


SEQ 0321 


CZMLBA CREATED BY MACRO ON 24-OCT-80 AT 10:07 caeT 5 


000100 
004000 G #121-1738 


— 

=< 

wm 
“uw 


‘SYMBOL CROSS REFERENCE v01 SEQ 0322 
SYMBOL VALUE REFERENCES 
‘FSSRV = 000010 #38-13 
'FSSUB © = 000002 #38-13 
'FSSW = 000014 #38-13 40-143 40-192 
FSTEST = 000001 #38-13 
GEN1 036014 #153-3313 228-6961 
GEN2 036522 #161-3695 243-7769 
GEN3 036556 #162-3763 214-6228 258-8618 
GENG 036654 #164-3834 275-9551 275-9555 
GENS 036710 #165-3895  301-10978 313-11601 323-12200 334-12800 
GETCNT 036176 #156-3486 161-3696 164-3835 
GET.WR 044034 #208-5893 215-6258 228-6964 243-7797 249-8108 259-8650 302-11010 
GSCNTO = 000200 #38-13 
GSDELM = 000372 #38-13 
GSDISP = 000003 #38-13 
GSEXCP = 000400 #38-13 
GSHILI = 000002 #38-13 
G$LOLI = 000001 #38-13 
G$NO—- =: 000000 #38-13 
GSOFFS = 000400 #38-13 41-269 = 41-270 41-271 41-272 42-311 42-313 42-315. 42=316 
42-318 42-319 43-322 43-3246 43=325. 43-326 = 3-327 3-329 43-330 
43-331 43-332 43-333 3-334 
GSOFSI = 000376 #38-13 41-269 = 41-270 41-271 41-272 = 42-311 42-313 42-315. 42-316 
42-318 2-319 43-322, 433246 4 3=325. 43-326 «= 43-327 = 3-329 43-330 
43-331 43-332 43-333 43-334 
GSPRMA = 000001 #38-13 41-269 41-270 
GSPRMD = 000002 #38-13 41-271 1-272 42=315. 42-316 2-318 = 43-322 43-329 
GSPRML = 000000 #38-13 42-311 42-313 42-319 43-3260 43+325 43-326 = 43-327 = 3-330 
43-331 43-332 43-333) 43-334 
GSRADA = 000140 #38-13 
G$RADB = 000000 #38-13 
G$RADD = 000040 #38-13 42-318 43-322 - 
GSRADL = 000120 #38-13 42-311 42-313 42-319 43=324 43-325. 43-326 «= 43-327 = 43-330 
43-331 43-332 43-333 43-334 
G$RADC = 000020 #38-13 41-269 41-2702 41-271 41-272 42-315 42316 
GSXFER = 000004 #38-13 42-312 42-314 42-317 42-320 43-323 43-328 
GSYES = 000010 #38-13 41-269 41-270 = 41-271 41-272 = 42-311 42-313 = 42-315 42-316 
42-318 = 42-319 43-322 43-324 43-325. 43-326 = 43-327 43-329 43-330 
43-331 43-332, 43-333 3-334 
HARDS —- 031332 #118-1613  *126-2014 145-2971 353-13781 3354-13847 
HELP — = 000000 #38-4 38-8 38-30 38-48 38-67 39-103 39-119 40-145 41-197 
41-258 41-276 42-302 44-339 44-384 44-401 44-413 
HOE = «= 100000 G = #121-1742 
IBE = 010000 G #121-1739 
IDU = 000060 G #120-1728 
IER = 020000 G = #121-1740 
INIT.A 033120 #129-2173 150-3188 
INTEGR 044070 #214-6217 — 345-13353 
ISOLAT 035212 #144-2900 217-6401 217-6413 220-6550 220-6561 231-7136 = 231-7149 246-7962. 246-7974 
251-8223 251-8235 262-8822 262-8835 279-9782 280-9798 + 284-10060 285-10077 289-10340 
590-10357 305-11182 3305-11195 316-11809 317-11825 327-12415 327-12427 338-12999 338-1301 
ISR G  —-#121-1733 
| 
| 
| 


( 
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SYMBOL CROSS REFERENCE 
OL VALU 


} 
'SYMB VALUE REFERENCES 
| 1$AU = 000041 #38-13 
ISAUTO = 000041 #38-13 
ISCLN = 000041 #38-13 
1$DU = 000041 #38-13 
ISHRD = 000041 #41-256 
ISINIT = 000041 #38-13 
1$MOD = 000041 #38-13 
ISMSG == 000041 #38-13 
ISPROT = 000040 438-13 
ISPTAB = 000041 #38-13 
ISPWR = 000041 #38-13 
ISRPT = 000041 #38-13 
I$SSEG = 000041 #38-13 
ISSETU = 000041 #38-13 
ISSFT = 000041 #42-300 
ISSRV = 000041 #38-13 
I$SUB = 000041 #38-13 
ISTST = 000041 38-1 
1.AM.D 032354 #119-1637 
JSJMP 000167 #38-1 
LAU 005536 #84-269 
LAUTO 005372 81-10 
LCLEAN 074666 #357-13967 
LDU 005404 #82-184 
LIMIT 002222 G #40-153 
LINIT 035556 #150-3160 
LOE = 040000 G #121-1741 
LOT = 000010 G #120-1726 
LGw.SE 032476 G #119-1659 
276-9594 
LRPT 005354 #79-40 
LSECT 002226 G #40-157 
LSACP 002110 & #38-65 
LSAPT 0020 G #38-65 
L$AU 005540 G 38-65 
LSAUT 002070 G #38-65 
LSAUTO 005374 G 38-65 
LSCCP 0021 G #38-65 
LSCLEA 074776 G 38-65 
L$cOo 0020 G #38-65 
LSDEPO 002011 G #38-65 
LSDESC 002130 G 38-6 
LSDESP 002076 G #38-65 
LSDEVP 002060 G #38-65 
LSDISP 0022 G 38-65 
LSDLY 002116 G #38-65 
LSDTP 002040 G #38-65 
LSDTYP 0020 G #38-65 
L$DU 005526 G 38-65 
L$DUT 002072 G #38-65 
LSOVTY 002122 G 38-65 
LSEF 002052 G #38-65 


v01 


#41-274 
38-39 #38-39 44-408 #44-408 
#44-376 


#43-337 


*123-1886 *185-4876 185-4882 185-4888 


120-1679 139-2659 
151-3234 


*126-2039 #140-2715 140-2742 215-6253. 228-6956 
293-10566 3002-11005 3135-11619 324-12227 
120-1679 139-2671 *139-2679 140-2713 140-2715 


484-287 
#81-121 
#358-14009 


#39-85 
#39-101 


#83-232 
#38-80 


243-7792 


140-2730 


249-8103 


259-8645 


SEQ 0323 


r —— 


/CZMLBA CREATED BY MACRO ON 24-OCT-80 AT 
|SYMBOL. CROSS REFERENCE 
SYMBOL VALUE REFERENCES 
LSENVI 002044 G #38-65 
LSERRT 002172 G 38-65 439-94 
LSETP 002102 G #38-6 
LSEXP1 002046 G #38-65 
LSEXP4 002064 G #38-65 
LSEXPS 002066 G #38-65 
LSHARD 2264 G 38-65 41-256 
LSHIME 002120 G #38-65 
LSHPCP 002016 G #38-65 
LSHPTP 002022 G #38-65 
LSHW 002210 G 38-65 39-117 
LSICP 002104 G #38-65 
LSINIT 036004 G 38-65 #151-3234 
LSLADP 002026 G #38-65 
LSLAST = 075012 G 38-65 #358-14035 
LSLOAD 002100 G #38-65 
LSLUN 002074 G 38-65 82-176 
#214-6246 *228-6951 
#334-12808 
LSMREV 002050 G #38-65 
LSNAME 002000 G #38-65 
LSPRIO 002042 G #38-6 
LSPROT 004014 G 38-65 444-376 
LSPRT 002112 G #38-6 
LSREPP 002062 G #38-65 
LSREV 002010 G #38-65 
LSRPT 005362 G 38-65 #79-59 
LSSOFT 002440 G 38-65 42-300 
LSSPC 002056 G #38-6 
LSSPCP 002020 G #38-65 
LSSPTP 002024 G #38-65 
LSSTA 002039 G #38-6 
L$SwW 002222 G 38-65 40-143 
LSTEST 002114 G #38-6 
LSTIML 002014 G #38-6 
LSUNIT 002012 G #38-65 120-1679 
275-9560 
351-13647 
L10000 002220 39-117 #39-134 
L10001 002262 40-143 #40-192 
10002 002330 41-256 #41-274 
L10003 2646 42-300 #43-337 
MARPAT 002246 G #40-165 120-1681 
MLB10 8== 007114 #122-1810 75-442 
MLB11 == 007122 #122-1811 = 176-4439 
MLB12 == 007126 122-1812 = 176-4447 
MLB15 = = 007132 #122-1813 = 176-4455 
mLB14 = 007136 #122-1814 176-4463 
MLB15 == 007142 #122-1815 3=—- 176-4471 
MLB16 «= = -007146 #122-1816 =176-4479 
MLB17 == 007152 #122-1817 =: 177-4493 
MLB18 = 007156 #122-1818 177-4501 


10:07 PAGE 7 
CREF vO1 

#41-256 

439-117 

82-184 83-194 83-199 83-205 120-1679 *126-2036 *150-3172 
#243-7787 249-8098 *259-8640 *276-9581 *302-11000 *313-11616 2324-12219 
#42-300 
#40-143 

125-1997 150-3169 214-6229 227-6930 243-7770 248-8077 258-8619 


296-10659 °296-10€66 296-10669 296-10690 301-10979 313-11598 3235-12197 342-15204 


275-9549 275-9552 


SEQ 0325 
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‘CZMLBA 
| SYMBOL 
| SYROOL 


PTABLE 


re 


CREATED BY MACRO ON 24-OCT-80 AT 
CROSS REFERENCE 
VALUE REFERENCES 
3504-11105 315-11736 
032474 G 82-177 *83-210 
= 000001 2-29 36-1662 
002232 G #40-159 120-1680 
046316 #227-6921 = 345-13357 
050232 #242-7728 = 3345-13360 
053560 #258-8608  345-13363 
055472 #275-9541 = 3345-13368 
072404 #342-13195 345-13371 
= 000001 #38-13 #38-46 
= 000001 #38-13 #38-46 
= 000001 #38-13 #38-46 
= 000001 #38-13 #38-46 
= 000001 #38-13 #38-46 
= 000001 #38-13 #38-46 
= 000001 #38-13 438-46 
= 000001 #38-13 #38-46 
= 000001 #38-13 #38-46 
032536 G #119-1663 = 156-3520 
030714 #118-1600 *154-3398 
243-7768 
= 007336 #122-1835 §=185-4902 
= 007542 #123-1848 §=173-4269 
= 007562 #123-1849 = 178-4543 
= 007624 #123-1850 350-13620 
= 007662 123-1851 = 3351-13641 
= 007710 #123-1852 139-2700 
= 007726 #123-1853 = 140-2731 
= 007744 #123-1854 139-2698 
= 007764 #123-1855 350-13611 
= 010010 #123-1856 = 354-13836 
= 010032 #123-1857 = 3350-13625 
= 007352 #122-1836 = 3345-13347 
= 010052 #123-1858 350-13631 
= 007370 #122-1837 = 130-2211 
= 007412 #122-1838 = 141-2775 
= 007426 #122-1839 §=353-13787 
= 007450 #122-1840 355-13885 
= 007472 #122-1841 132-2328 
= 007510 #123-1846 = 132-2342 
= 007522 #123-1847 242-7750 
= 001000 G #121-1736 
= 002000 G #121-1737 
= 000000 G #120-1724 
= 000040 G #120-1723 
= 000100 G #120-1722 
= 000140 G #120-1721 
= 000200 G #120-1720 
= 000240 G #120-1719 
= 000300 G #120-1718 
= 000340 G #120-1717 
032440 G 119-1647 = 132-2324 
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140-2729 


357-13971 


137-2572 
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3536-12922 
*126-2023 
8-34 
139-2675 


38-65 


#154-3401 
203-5667 


351-13663 


137-2579 


B 10 


150-3185 
40-194 


161-3695 


*150-3184 


*150-3190 
41-220 


*242-7736 


184-4842 


334-12801 342-13203 
44-426 


242-7747 


184-4856 


242-7749 


342-13223 351-15652 


243-7760 


SEQ 0326 


r 
| 


CZMLBA CREATED BY MACRO ON 24-0CT-80 AT 10:07 PAGE 10 
SYMBOL CROSS REFERENCE CREF 
‘SYMBOL VALUE REFERENCES 
351-13659 
AAA 005550 #107-965 


C 10 
v01 SEQ 0327 


wn” 


SENN SN NDS DSO DD AA AAA MMA 
FW 0 OODNAUE WN O OONAUE WHO 


POPIPOMPIPOPONMINPINPOPO POM MPO NMI NPO MIMO MPO MO MOP NOP Po NoNoPponofronofporerr 
kk kk kk ad ad ak od ok od ot to ot 
t#oetepuupeupuevpevpeseeupuepeevpetv ee te eee eee 6 8 
ee kk ak ek kk ak es ak ak a 


i 

iP 121-17 

lp: 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P. 121-17 
P.AAQ 006400 #110-1118 121-17 
PAAR 006446 #110-1131 121-17 
P_AAS 006470 #110-1137 121-17 
P.AAT 006502 #110-1141 121-17 
P| AAU 006510 #110-1143 121-17 
P. AAV 006514 #110-1145 121-17 
P_ AAW 006522 #1021147 121-17 
P_AAX 006534 #110-1151 121-17 
P_AAY 006552 #110-1156 121-17 
P_AAZ 006574 #110-1162 121-1775 
P_ABA 006622 #111-1174 121-1776 
P. ABB 006630 #111-1176 121-1777 
P. ABC 006634 #111-1178 121-1778 
P. ABD 006642 #111-1180 121-1779 
P_ ABE 006652 #111-1183 121-1780 
P_ ABE 006662 #111-1186 121-1781 
P.ABG 006670 #111-1188 121-1782 
P. ABH 006700 #111-1191 121-1783 
P_ABI 006706 #111-1193 121-1784 
P_ABJ 006714 #111-1195 121-1785 
P_ABK 006722 #111-1197 122-1790 
P_ABL 006734 #111-1201 122-1791 
P_ ABM 006744 #111-1204 122-1792 
P ABN 006754 #111-1207 122-1793 
P. ABO 006760 #111-1209 122-1794 
P_ABP 006766 #111-1211 122-1795 
P. ABO 00677 #111-1216 122-1796 
P_ABR 007012 #111-1218 122-1797 
P_ABS 007022 #111-1221 122-1798 
P.ABT 007034 #111-1225 122-1799 
P. ABU 007040 #112-1231 122-1800 
P. ABV 007046 #112-1233 122-1801 
P_ ABW 007052 #112-1235 122-1802 
P_ABX 007056 #112-1237 122-1803 
P_ABY 007062 #112-1239 122-1804 
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COD RF NINN NN M MIMO MIMI oF TT TMM OO OR EPA OOOOO 
Pe ee A eee ee ee eee ee ee eed ed ed ed ed ed ed ed ied Ped ed eh 
me leolelolololololololololololololololololololololololololololololololololo lola lo eee ee ell baba 
QOS SSS SSSSOSOSOOOOGOSOOSOOOSSSSOOSSSSOOEOEOEOEEEOEESEEESEEoeesoS 
> 
a 
One MV Owe VTHMMUYUEZOASGAM> DIP BxX>-NAMVOWs4 VT MMIEZOASGaAYVe DP 3Bx> 
Bee ee ee Se Se Se ee ee 9 9 9 9 9 39 9999 9933323223 23e2e222 
a SS Sa Si Sas Sas Si Sas Sas Se te tet te te teat tee tee ty Sete te ete te tee Se ee ee 
awn @€@€ ae 2 @ 2 Se 2S. 8.8 Se Se Sw eS 2S eS Bees ee. 8 ee ee Ute 6S 8 Ue. fe LS « _ oe . o s e + . . - . . 


10 
CZMLBA CREATED BY MACRO ON 24-0CT-80 AT 10:07 PAGE 12 


SYMBOL CROSS REFERENCE CREF O01 SEQ 0329 

|SYMBOL VALUE REFERENCES 

P.ADZ 010072 #115-1443 = 123-1861 

P.AEA 010076 #115-1445 = 123-1862 

P.AEB 010102 #115-1447 = 123-1863 

P.AEC 010124 #116-1457 = 123-1864 

P.AED 010150 #116-1464 =123-1865 

P.AEE 010224 #116-1479 = 123-1866 

P.AEF 010300 #116-1494 = 123-1867 

P.AEG 010332 #116-1503 123-1868 

P.AEH 010356 #117-1514 = 123-1869 

P.AEL 010400 #117-1520 «123-1870 

P.AEJ 010424 117-1527) =: 123-1871 

P.AEK 010512 #117-1545 = 123-1872 

P.AEL 010542 #1171553 =: 123-1873 

P.AEM 010610 #1181570 = 123-1874 

P.AEN 010624 118-1574 = 123-1875 

P.AEO 010640 #118-1578 123-1876 

QH1 002330 41-269 #41-283 

QH2 002345 41-270 #41-284 

QH3 002367 41-271 441-285 

QH4 002417 41-272 #41-286 

Qs1 002646 42-311 444-345 

Qs10 03513 43-327 444-360 

Qs} 003532 43-322 43-329 444-361 

Qsi2 003614 43-330 444-362 

Qsi3 003633 43-331 #44-363 

Qs14 003665 43-332 444-364 

QS15 003717 43-333 #44-365 

QS16 003764 43-334 444-366 

Qs2 002713 42-313 444-346 

Qs3 003000 42-315 444-347 

QS4 003033 42-316 444-348 

ass 003065 42-318 #44-349 

Qs6 003132 42-319 #44~-350 

Qs7 003436 43-324 #44-357 

Qs8 003455 43-325 444-358 

Qs9 003474 43-326 444-359 

QUICK 030712 #118-1599 9 =#150-3167 #151-3215 = 242-7737 «= 248-8074 «= 3345-13340 9 345-133564 

RANDOM 005352 G *77-27 #77-37 120-1683 165-3903 = 199-5470 = 199-5472 = *292-10499 292-10500 *294-10577 
294-10581 *296-79564 296-10665 *296-10668 296-10672 296-10678 296-10686 296-10688 *296-10692 

RAND 1 063116 #301-10969 343-13240 

RAND2 065022 #312-11585 343-13242 

RAND3 066670 #323-12188 = 343-13244 

RAND4 070562 4334-12791 =343-13251 

RANGE 002224 G #40-155 120-1679 139-2661 

RBUF F 020706 #118-1596 = 121-1745, 121-1746 = 121-1748 =. 216-6313) 216-6319 216-6360 = 218-6448 =. 2.28 -6953 
243-7789 §=249-8100 259-8642 3502-11002 3135-11621 9324-12221 9334-12810 

RCBUFF = 021706 #121-1746 = 275-9559 

RDBUFF = 020706 #121-1745 = 275-9558 

RD. COU 032340 #119-1625 *126-2028 189- *189-5037 *189-5041 

Bs BBS IGS TREE IG NES te 

RD. THO - * *169~ “ *109~ 

READ 042434 #195-5279 199-5474 9 =203- 204-5714 = 204-5726 = 216-5315 = 216-6357 = 218-6445 =. 229-7025 
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SYMBOL CROSS REFERENCE 


CZMLBA 


SEQ 0330 


oc or = - ~ ~ 
Mo oonww wT —Meo v—rer om Ww —_ 
om o- Ow oO wom wore nr ~N [>] 
orm oem / cor cu oNMN eer C& N 
an Koc w ™~ Orc ee Oe oO - 

‘4 ‘eee 1 ‘ee ‘et ‘et t ' 

cow NONMN DO wo. oo ow KF ~w 

~~ mnm~or o row NN Ne N Lal 

we ANNerdsen _— NOP oe Ne N Lal 
* 

~w ow co wn co ~ 
ce WNOoO Mm onmrn om oo cw al 
Le orma o ner Nn cow N N 
on omom Ww on M— Oe Ww ~N 
ar ~OoOc wn ~oOr o- er oOo - 
ie | eee 6 ee tt 4 4 ' 
nr oOmMoo wo wow or wmN st w 
hae Moan Oo wro- e- TOC- N 
are NNOPe - Ne ne Ne N Lal 

N Me ~» NWT oO sO ~ Co 
ao N-OoOo ™ oO ater mo OO ~~ Re N 
~~ comcmnm © oO orn Oo Coe Ke TO GS oO 
Se orormw oO ek el | coo on ~ ~» _ 

o- wOoeoc-— wn _- ~~ Oc ror eed wo _— 

a) eee I ] ete ‘st a) ' t 7 

ow oO-or wT so MoOwWnwo my AOwsr ws é™ al 

or Noon Oo oa worm oo wo oo ww - 

NP NONE - N Nees Ee ue NI ~ ~~ 
+ 

oa NO  ) oo Nm Ne oO ws 
Nt ccor. rr N ~ r~NOMN NO Orr ~w moo - 

-O Owonrw Oo w wwnro Tu NON;OMmM OM an oO 
Se oe moor - oOo owoenm Mo Mom. ~ co co - 
o- oe0O<rc-- WN - Oc OS Orne -— me —_— 
1s eee ‘ i eee ' asf i] i) t 
om -Oow TF ~w Anno wo woOrowr w Wn N 
woo NWwNoOwu Oo o NWA ~co 3-OMO wT oro oO 
nee NOP - N NN —™N fol al ela.) ~ De ed ~ 
* 

_— oo co nw rn CO co 
wre NNR CO Oo on -—rNoO coor NOK OOM onmr ~ oOo 
NO -—-~-—O O&O wT al ab oh: 2) oc —uO- Or oo coco wn ~ 
ce WNO-—- @® Oo on ™N NA KOPF-MO cowovwo Oo ™ 
o-— oor wT _- Oc ro Oe el el Del MN — oOo - 
et sees i ‘ eset in) #et+etees ee ' . 
om onNwnnr WwW N Aamo mm wmcdoooc-m noo am 
wTo —-Wo- co oa fat ES ot ol fl) ~-O DOM~TMO wom wow 
nem NNN N NOPE —N™N KNMR MCU Set see aed Nn OM 

” 

a mu tT mo mm co Co 
om vo Tor ro ao -- ONO — or TIT NOOm N —- oocyv 
—™N OMDOr- Mma Se) DUNO woo ~woOooCad-wo co - ~o 
—O Onr-'- Or wr wr NOcr-w o~ MOWOMO oO - we 
O- wTowmenr- wT wn —-h Oc mo TORK ww co -w 
se #eeee te ‘ seed ee #teeet#es ore er 
o~ woowro rw oa TOOM~T coco comwocncjwrnm ott ao mc 
TO Oe-mor ~oOo oa mMmAusToOor ad Bm COMmdPN ~F © nnn w Wo 

a * 

oo oO mm wT ~w w 
rNOMOK MO We —-N MMOrm woo TOOK NO oO eo 
ONAOOr COO OT oeo NMe OP on~r wrwormenrwsrn So WO 
DWDOWUMOO- NO ON NAW ar Mmm UOMO ao orn 
RH VOODOO - WH M— OO NO TORK WNOWN mn Oo nm BU 
#0eeteepetsge#s ‘4 Le | este ta! #eeteest mur a | ie | 
wr OOr-fh-— wv mon mw ToOoomo oo ~wo~wcwmr | ne ny ~~. OO 
TOMIM<~TO-- KO om VN TON Tro FEMME. O Lem rr TO 
NCNM CUCU CUR Nm es) MCR —™N — Me CUCU x S N -- 

& 4 ae 
MN ~oc oun ww ork Om - ~~ 
Wr On TR OT TN MMOCUA OR — OMOOMOR DOOD OMTOCUPM - ownr mo 
MWD BDF CUMUO MOM TMBDWDW DO TOOMNVNOIM — TK OINE K OT OR OMO— — oOo To <—oO 
DO VUOUA W— MOST DDOWDOWUWVK— DO — K— VORA OMNMOK— UNO K MAUMOUMNOC N ~No on 
RO — ORO RK KN MM OK NO — ODOR. DORR RK RK RK NOK TORK NON WOOMPRVUO CM 
te eoe0e ee 6 6 tomer tp tteeeepeeeeeeeeeeseeeseee te te be t-—wwl tt ‘ese 
TMDOMOOOAOD! 1 i OFTMOOMM TR WON CUM~TDOR-MOORDWO CHI IMNoD Ov 
TFOMUK— FDOMUGA OO ONUAM — OF OVNK VTA FORK UMMMNAMNRR UMAR MRR RTI CUO 
te 7+ se 
Le) oO -— ~c0 00 Ne- _— - 
WMA— OOM TOOT WNADWOOK—NOR. DOOM VUMTRER VE VOWM TN BNO wT 
omwTm THT KOM MMU NOTA DOMAUANACIMMMMM® OR. TF — h- MP KR owow tell soll 
ZONA ODP _WOMMNOK COOMO— WDODWDWDW DDD DDD WO WRF. CURR 090 00 8) 00 
WA — OR BRK KK NMMMN RK ee RKC OC RC MK RM RM RM MOM OM KVR RK RK DOR KR KKK NMOMEH NTT 
awrettet tipi tpriterenmemt ti tpteitresvpoevpeseneueeueeeoeeteob bt 6 8 6 bt temo 8 FC tes 
WAOCUWM 1 OUTOTRODW 1 1d EMONOMAUMNANNNNNNNNNN RK NOK OMe Nere—n 1 bt trol Owe 
&NDONOO TR. OFI— AOC OR AAD — FOUN NN NINN NM STM ONIN ST NNR RR ANUOOR DO 
WIC COUP ST CUCM ee OR RRR IN RE NM RM MM MR RE KEK NUM RK NM RK NO OOK BRR RK RK NTO 
= RR a z= RRBs * ZRRBVBVVBVzwzwe22ZBz a 2= sBBe Css SS e. 
o o uvuo oo VY 
wo Oo owovrOovrwOooO woovwosnwuowuosrnowo ~w NY WNT OOONONNY 
Ws MW MATIN — OM TmMMNOR-OOK-— UMM - N MMR TAM OR. CUO 
NO MY NNN OF Kner NNO MIM RIP ~F w DBD AWM M ee WP CUR. 
[ve) ue Nn MMMMOUCNO Ll Saeed Donel Deed Deel Ded Sel el Del el nl) oO oOo CWOWOMNMNNOUMNVO 
eo | ow mm oooowuowow0nm ooooooocoom Oo So SOoOOCOOCOCOoOMmM yToOM~y 
z oo o Cooo°o°coe°o Coooooooocoeoo o So SCOOCOOCOCOoOOCOCOCOOoOoeOoOoO 
> nnnunnnunnnhnhun iT " uuu 
= wy — C=) oO eure a 
oO w> > w wo <x<mvrart —NUM tO Ove 
@ ca = YxZa3a OK NUMTNMNANNYM B - NY MTNOQOoAD> +. = 
= wr - wm Aaqar 2222222222> > — ere wa ee  O e 
> verre, w Waweeeszeza eee ee ee ee 4 = €d ewww Or 
” ce a@ @aeaaccace @aeancaeacaeacaacn (7) YP NANMMMMNMNAMNMNNM 


SEQ 0331 


G 10 
v01 


PAGE 14 
CREF 


MACRO ON 24-OCT-80 AT 10:07 


CREATED BY 
SYMBOL CROSS REFERENCE 


CZMLBA 
SYMBOL VALUE 


~ SAD OKKVNTRKMTNOODOOUNTNOR ODOR CUM 
MON MWMAAMAAMAAMMDAAWOAIN OW — OOM RR RR © NINN NINOS 
DODOOO— Cs OW OOOO OO OO OO OO ODD NDI DI NID NI CUM III I I) 
#eetetes tetpuesreteevpe cee tvpete pee te eoeeese)e sete sebelah a aa 
BOCOGOGOC 6D00 00 00 00 0D 0D 00 00 00 0D 0D OD DDO ITI NII NI NII CI CIM MI MII IRI IT RT ITI 
MMMM MM MMMM MMMM MMmMmMmmmnmnney 7 F rrr rrr rrr rrr rr rrr rr rrr 


Ono we 
WO Re Re ENNIO 
yererey 

1’ 


#eeteeoeetpeeteeoest BeearrreserecetrrereerRRRPeSe eR ae ree ' i 
cece $9994 SSSOOS SK EK He atanatutatatatatarannanennennen 
PPI PD ST ORI PIM MIE PPP MIPIM PIM PIM) wT AT OT AT A rr rr rrr rrr rr rrr rrr ri 


Oo FHMAOO—UNVUNOK— MMNNO ODOR WU TNOR- ADO 


#etetseeteteteveesd #eeteteete Eee rte erase etree et eee 
cock cp eeee rR OOOSOOROS Oe Hee detataretarataratatannhaaheen 
PIED 3T PIPPI POPP IPAM PO MAMPI PMI MI PIMPIN) ~F wT AT Tr rrr rr rrr rrr 


so H—MNAOO— VNVNOK MINN O ODO WWUTMOPR-OOOR- NW 
MIND MANMDA DA AD DAAAUIDA ALAA WAIN OO TOR PR PRR OE KK KNIT 
FR 
00.00.00. 00. 0 0.0.0. 00. 00. 00 0.00. 00. 00. 00 0 0 CO OOD FO NINN NIN NI NIC CCUM MMMM 
Pwat “al al al Abn Asal Al Aledo dled ld lll eee eee ee Le . . . 2. 2. 2. 2 So » SS 


~~ THMAOO— UNO RK MNNOODODOWWTNORAOORKW 
MMMM TAA AMAIA AIAN OO 8T OR- RRR RO RE EERE KK NINN NNO 
POPC SPOS PPT TTC CTT sett een e rte thane hh eet a 
@#eete_eees @eprepeepereecueepeee vee eevpeeeeeepese eee epe ett tt be bet tt 


~m 
NRMMMMA TOE WMMMNN Nn 


OK KH NTKMTNOODODOAOWUNTNOR DOO Ww 
OR RRR, NINO CPI PES 

Noe 
w 


RAROK KUT KMTNOODODAWUNTNOPR DOO WU 
mM ODOR R RR. NIN NCU CIS 
seerrr.n 


000001 
000001 


! 


H 10 


SEQ 0332 


wT 
~~ oa 
om on 
> Sew —™N 2) 
se, o- N 
ala! i) i 
‘et ow o 
me rN dl) 
ww nem sad 
N 
rN wT 
ow co 
mw —— oO 
me oe ™N 
se ts ‘ 
in) om ao 
mae we ~» 
ww ~nem = 
oa 
oho) N 
fo) oo 
mM | oe oOo 
—e Se ™N 
me 1 ' 
‘o moa ao 
me wo ~~ 
ww nem -_ 
so 
Mo - 
ao oO 
maT te et ed oO 
sae ~ Le oe Nm 
Ala! ~ 4 ] 
es t mo o 
me ~ zo ~ 
ww ~w Nem = 
- 
@o wo 
mr o So 
own oo co 
mT ~w ~oo La) oO 
mae ~ mo - ™N 
me N mit ' t 
te | ' ‘ov w o 
me _ Mur w ~~ 
ww ~w TrnNm _- 
oa ad 
co mw 
=- ~o @® ~~» 
oO me ~ ~ 
> mM rT N TOO pm oO 
wo me o ~Oor- -— N 
_ me _— mitt a ' 
‘os t ‘om Mm o 
we Me oO KNOW ~~ 
Ow wv w woe | - 
<a oa * 
aw 
re-wo wr ™~N 
Wo @ ~ 
mys ~w NNWwo fF oOo 
me ~ owuooe w N 
~ ae -_ —-t ‘ i 
OQ en) a mano w oa 
“* me on ornr~ O ~*~ 
Oo ww ~ woe MN _- 
- a = Sl 
— N 
<x Oo DOMNnVooyso 
—- M~TO-—MNOWOD 
i] mwTr AwTroovor-Pfr-hr-hr- OO 
co BYE PIO TPO UNNI 
a mrrncwcn tm F bbb et 
- ett F twmstDWOonwoooco0co 
v MIPIPNCO COCO DO MMM ws wT TO 
Oo TTT MMM PI NIM ee 
I 222 * 
w 
uN Ww Oo 
w Tr - OMTOO-U 
z= oOo ovreornovovo 
oO 2mM~ar- —-— COOorvowdovnaa 
IPE PPP) WT Pe CO em ee ee 
Sewer ee te laa 
Oo wtett tt te tOOnwomromnnnm i 
SC wMMIMIGCOOR.0c0— NM UO O 
BG WTF TT MMM MK NM een ne TS 
= a 2 2 eS Ss SF 2ZrRRwRRs 
[ve] 
we 
a2 
w oO o 
og 
[vere e) 
— —-—-—-OCO NOON OCO 
<w oooo°co- mMOr-h- MY 
wa ooocoonm re-oooonm 
= ww ooor-orw -O°o°conw 
wwyn ooomMrcm™ Mere O 
Sz oooo°oo Qooo°co°e 
e> nwu u nunu 
Yv 
<i @Oorgeiw 
moo 2a vYvar>w YVdr Orr 
eet <7) Aer wY WwWOOnrv 
\-. - 2 VVVLWY UA he ee 
~~ > > >>>>hO @aaaacaw 
veunuv? MWNNNNE eee ee 





DN mm EE NINNINNIN OOS 


Sl i i i a i i i i i i i 


ORK KH NMSA DOAOOMUMMNODOOCWPM 


Onc 
"teat Sinaia ‘aul Sat ed eel et ed See 


=z = 2= 2&= 2&= 2&= ® 


A— NUNN TOOPF BOM -T OF-OOer MT 
ORM HR RR EK NNNI NINN 
NA AUMMMMMMMMMMM MMMM MMM 


oe = 222: = 2=§ = ® 


ee NINN CCU III 


-— 
SYSIISS IS IIe eyes ese 


ow 
Mo 
“Ne 

ees 
oem 
Mwy 
Re 
oo 
oo 
oo 
oo 
oo 
oo 
“wou 

za 
aw 
cx 
Wd 
Eh 
a 


#38-13 


CZMLBA CREATED BY MACRO ON 24-OCT-80 AT 10:07 PAGE 16 
SYMBOL CROSS REFERENCE CREF 
SYMBOL VALUE REFERENCES 
TSNEST = 177777 #38-13 


v01 SEQ 0333 


38-39 #38-39 38-39 39-134 39-134 


39-134 439-134 40-143 #40-143 


39-117 39-117 
40-143 40-192 
41-256 441-256 41-256 41-274 41-274 41-274 #41-274 42-300 #42-300 
42-300 42-312 42-314 42-317 42-320 43-323 43-328 43-337 43-337 
43-337 #43-337 46-376 #44-376 46-376 44-382 44-382 44-382 444-382 
44-408 44-408 44-408 #44-408 
‘T$NSO ==: 000000 #38-39 44-408 
|TSNS1 = = _ 000021 439-117 39-134 460-143 40-192 #41-256 41-274 #42-300 42-312 62-314 
42-317 42-3 43-323 43-328 43-337 #44-376 44-382 
TSPTHV = 000000 G 38-65 4358-14036 
TSPTNU = 000000 #38-13 
TSSAVL = 177777 #38-13 
TSSEGL = 177777 #38-13 
T$SUBN = 000000 #38-13 
TSTAGL = 177777 #38-13 
T$TAGN = 010005 #38-13 39-117 39-117 #39-117 40-143 40-143 460-143 41-256 41-256 
#41-256 42-300 42-300 #42-300 44-376 44-376 #44-37 
TSTEMP = 000000 #39-101 39-101 39-101 #39-101 #39-134 39-134 #40-192 40-192 #41-269 
41-269 #41-269 41-269 #41-269 41-269 #41-270 41-270 #41-270 41-270 
#41-270 41-270 #41-271 41-271 #41-271 41-271 #41-271 41-271 #41-272 
41-272 #41-272 41-272 #41-272 41-272 #41-274 41-274 #42-311 42-311 
#42-311 42-311 #42-311 42-311 #42-313 42-313 #42-313 42-313 #42-313 
42-313 442-315 42-315 #642-315 42-315 #42-315 42-315 #42-316 42-316 
#42-316 42-316 #42-316 42-316 #42-318 42-318 #42-318 42-318 462-318 
42-318 #42-319 42-319 #42-319 42-319 #42-319 42-319 443-322 43-322 
#63-322 43-322 443-322 43-322 #43-324 43-324 463-324 43-324 443-324 
43-324 443-325 43-325 443-325 43-325 443-325 43-325 #43-326 43-326 
#43-326 43-326 #43-326 43-326 #43-327 43-327 443-327 43-327 443-327 
43-327 443-329 43-329 463-329 43-329 443-329 43-329 #43-330 43-33 
#43-330 43-330 #43-330 43-330 443-331 43-331 443-331 43-331 #43-331 
43-331 #43-332 43-332 #43-332 43-332 443-332 43-332 443-333 43-333 
463-333 43-333 463-333 43-333 463-334 43-334 443-334 43-334 463-334 
43-334 #43-337 43-337 #44-382 44-382 444-408 44-408 
T$TEST = 000000 #38-13 
TSTSTM = 177777 #38-13 
T$TSTS = 000000 438-13 
T$S$HAR = 010002 #41-256 41-256 41-274 
T$$HW = =_: 010000 439-117 39-117 39-134 
TSSPRO = 010004 #44-376 
TS$SOF = 010903 #42-300 42-300 43-337 
T$$SwW = = 010001 #60-143 40-143 40-192 
11 073024 G 39-101 4346-13394 
UAM = 000200 G #121-1734 
UP .HAR 035302 #145-2963 «219-6479 =. 221-6623 «=. 232-7211 = 248-8040 252-8297 263-8897 281-9860  286-10139 
291-10419 306-11257 318-11887 329-12493 339-13073 
UP.RD. 042062 #189-5033 196-5296 
UP. SOF 035430 #147-3043 9219-6496 «= 221-6640 «233-7232 «=. 248-8057 = 253-8318 263-8914 281-9877 2286-10156 
291-10436 307-11278 318-11904 329-12510 339-13090 
UP .wWC. 042154 #191-5096 198-5397 
UP .WR. 041770 #187-4970 194-5195 
VEC 030726 #118-1609 *129-2177 130-2236 
WAITER 041320 #181-4688 184-4850 185-4884 
| 


CZMLBA CREATED BY MACRO ON 24-OCT-80 AT 10:07 PAGE 17 
SYMBOL CROSS REFERENCE CREF O01 SEQ 0334 
SYMBOL VALUE REFERENCES 
WBUF F 010706 #118-1595 121217463) 12121744 12421747) #153-3327 153-3340 «161-3697 9 *163-3772 §=#163-3775 
*163-3780 *165-3896 *165-3897 *165-3898 +*165-3903 206-5846 215-6262 215-6272 216-6318 
219-6500 219-6510 221-6596 228-6952 243-7788 249-8099 259-8641  302-11001 313-11620 
| 5324-12220 334-12809 
iWCBUFF == 011706 #121-1744 = 275-9554 = 275-9557 
‘WC. COU 032346 #119-1631  *126-2031 = 191-5099) #191-5100 = *#191-5104 
wC.MIL 032352 #119-1635 *126-2033) *191-5108 = =*191-5110 = 3351-13642 
wC.THO 032350 #119-1633 #1262032 =*#191-5103 = 191-5105 = #191-5107 
WOBUFF = 010706 #121-1743 = 275-9550 =. 275-9556 
WHY .DR 032464 G #1191655 *126-2058 *138-2603 138-2626 *139-2705 140-2736 *215-6278 +*215-6288 *215-6302 
| #216-6345  #217-6371  #217-6381 = #217-6395 = #217-6406 9 =*219-6516 9=*219-6526 9 *220-6544 *220-6555 
*228-6987 *228-6998 229-7017 *230-7078 *230-7100 *230-7111 *231-7126 231-7142 =*244-7825 
| #244-7833 *244-7847 %245-7906 *246-7932 %246-7942 246-7956 *246-7967 250-8167 *250-8189 
| #251=8203 *251-8217 251-8228 *259-8673 *259-8684 260-8703 *261-8764 +*261-8786 *261-8797 
%262-8816 *262-8828 *276-9621 *277-9636 *277-9651_ *278-9724 *279-9750 *279-9761 + *279-9776 
*279-9788 *281-9898 282-9913 *282-9928 *283-10002 *284-10028 *284-10039 *284-10054 *284-10066 
*286-10177 *287-10192 *287-10207 *288-10282 *289-10308 *289-10319 *289-10334 *289-10346 *302-11033 
#302-11044 *303-11063 *304-11124 #304-11146 *#305-11161 *305-11176 *305-11188 *314-11670 *314-11680 
| #314=11694 #315-11754 #316-11779 *316-11789 *316-11803 *316-11814 *325-12276 *325-12286 *325-123500 
#326-12360 #327-12385 *327-12395 #327-12409 #327-12420 #335-12856 *335-12866 *336-12884 *337-12944 
*337-12965 *337-12975 *338-12993 *338-13004 352-13697 
WPTR 030706 #118-1597 206-5843 *206-5846 206-5847 *228-6952 228-6970 228-6980 229-7035 229-7038 
229-7046 233-7236 *233-7237 243-7788 «243-7803 = 244-7817 = 245-7869 = 245-7872 = 245-7879 
248-8061 *248-8062 *249-8099 249-8126 249-8129 249-8136 253-8327 *253-8328 *259-8641 
259-8656 259-866 260-8721 260-8724 260-8732 264-8922 +*264-8923 *302-11001 3502-11016 
302-11026 303-11081 303-11084 303-11092 307-11282 *307-11283 *313-11620 314-11654 314-11664 
3159-11716 3315-11719 9315-11727 *318-11907 *#324-12220 324-12256 325-12270 325-12318 326-12525 
$66-16333 328-12462 *329-12512 *334-12809 335-12840 335-12850 3536-12902 336-12905 3356-12915 
® - 
WRD11 = 006662 #121-1781 «= 132-2326 )3=- 1137-2581 =: 137-2589 =: 138-2616 §=—- 139-2687 = 140-2718 =. 3351-13661 9351-13687 
WRD15 = 006670 #121-1782 «= 144-2907 = 185-4904 = 194-5206 §=—6 196-5307 =: 198 - 5408 
WRD16 = 006700 #121-1783 = 185-4896 §=194-5207 203-5657 
WRDI/ == 006706 #121-1784 185-4899 196-5308 203-5677 
WRD18 = 006714 #121-1785 202-5652 203-5666 203-5676 204-5736 204-5756 
WRDI9 = =_: 006722 #122-1790 «=. 204-5735 
WRD2 = 006622 #121-1776 = 203-5658 «©203-5668 203-5678  345-13548 
WRD2O0 = 006734 122-1791 = 144-2908 204-5755 
WRD21 == 006744 #122-1792 «=: 137-2588 = 138-2615 = =139-2686_ «140-2717 = 3351-13686 
WRD24 = 006754 122-1793 276-9587 9277-9659 =. 287-10217 
WRD25 = 006760 #122-1794 282-993 
WRD3 = 006630 121-1777) =. 3357-13972 =©357-13980 
WRD34 = 006766 #122-1795 130-2200 39 214-6221 9 227-6924 =. 242-7731 =. 258-8611 = 275-9544 = 3542-13197 
WRD35 = 00677 #122-179 276-9582 
WRD36 9 = 007012 #122-1797 = 129-2187 = 130-2207 
WRO37 == 007022 #122-1798 129-2185 130-2209 
WRD38 = 007034 #122-1799 = 129-2194 
WRD4 = 006634 #121-1778 = 3345-13346 9357-13970 9357-13979 
WRD40 = =_- 007040 #122-1800 129-2195 130-2212 
WRD41 == 007046 #122-1801 129-2192 
WRD6 = 016642 #121-1779 +=: 138-2633 
WRD7 = 006652 #121-1780 = 138-2636 
WRITE 042246 #193-5178 202-5650 203-5687 203-5693 203-5702 204-5721 215-6264 215-6269 228-6972 
| 
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‘SYMBOL CROSS REFERENCE CREF O01 SEQ 0335 

SYMBOL VALUE REFERENCES 

| 228-6977 = =—243-7805 rg att Be 59-8658 €77-$%e8 gio: -9606 76-9611 281-9883 281-9888 

| g80- 19166 286-10167 3302-11018 302-11023 314-11656 9314-11661 9324-12258 9325-12267 3355-12842 

WR. COU 032332 118-1615 = *126-2025 = 187-4973 -*187-4974 9=*187-4978 

WR MIL 032336 119-1623 #126-2027 «=*187-46982 187-4984 350-13626 

WR. THO 032334 #118-1617 126-2026 =*187-4977 = 187-4979 = *187-4981 

XSALWA = 000000 38-13 42-317 43-323 

XSFALS = 000040 #38-13 42-312 42-314 

XSOFFS = 000400 #38-13 42-312 42-314 42-317 42-320 43-323 43-328 

X$STRUE = 000020 #38-13 42-320 43-328 

SEND.L 075014 G #358-14043 

SPATCH 004022 G #44-399 

SSAVE2 005150 G 69-1027 74-1274 #76-1350 156-3486 165-3895 193-5178 195- 245 197-5380  359-14067 

SSAVE3 005164 G 43-170 49-218 53-386 54-440 64-833 65-884 #76-1357 293-10563 3559-14066 

SSAVES 005202 G #76-1365 125-1996 §=129-2174 = 150-3160 }«=—.: 153-3313) 184-4838 = 296-10658 9342-13195 359-14066 

SSAVES 005222 G 70-1096 74-1274 = 76-1374 131-2299 137-2568 159-3615 171-4184 180-4630 202-5640 
214-6278 Lae 04 HF 242-7728 258-8608 275-9541 301-10969 312-11585 3235-12188 334-12791 


350-13602 359-14 
$11 072650 #345-13340 326213398 
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MACRO CROSS REFERENCE CREF vO1 SEQ 0336 
'MACRO NAME REFERENCES 

|BGNHRD 41-256 

BGNHW #39-117 

BGNMOD 38- 

BGNPRO 44-376 

BGNSF T #42-300 

BGNSW #40-143 

DESCRI #39-85 

DEVTYP #38-80 


ENDSFT 43-337 
ENDSW 40-192 
ERRTBL 39-94 
GPRMA #41-269 #41-270 
GPRMD 41-271 41-272 42-315 42-31 42-318 3-322 43-3 
GPRML #42-311 #42-313 #42-319 443-324 #43-325 443-326 443-327 #43-330 443-331 #43-332 
#43-335 #43-334 
HEADER 38-65 
MSBYTE #38-65 #38-65 #38-65 #38-65 
MSCNTO #41-269 41-269 #41-270 41-270 #41-271 41-271 #41-272 41-272 #42-311 42-311 
#42-313 42-313 #42-315 42-315 #42-316 42-316 442-318 42-318 #42-319 42-319 
#43-322 43-322 #43-324 43-324 #43-325 43-325 #43-326 43-326 #43-327 43-327 
prt aes H ra #43-330 43-330 443-331 43-331 443-332 43-332 443-333 43-333 
MSDATA #38-65 38-65 38-65 38-65 38-65 38-65 38-65 8-65 38-65 38-65 
38-65 38-65 38-65 38-65 38-65 38-65 #38-65 38-65 38-65 38-65 
38-65 38-65 38-65 - 38-65 38-65 38-65 38-65 38-65 38-65 
38-65 38-65 38-65 38-65 38-65 38-65 38-65 38-65 38-65 #38-80 
38-80 #39-85 39-85 
MSDELR veto! bt | #40-192 40-192 #41-274 41-274 443-337 43-337 444-382 44-382 
MSDEFA #41-269 #41-269 #41-270 #41-270 #41-271 #41-271 #41-272 #4i-272 #42-311 #42-311 
#42-313 #42-313 #42-315 #42-315 #42-316 #42-316 #42-318 #42-318 #42-319 #42-319 
#43-322 #43-322 #43-324 #43-324 #43-325 #43-325 443-326 #43-326 #43-327 #43-327 
#43-329 #43-329 #43-330 #43-330 #43-331 #43-331 #43-332 #43-332 #43-333 #43-333 


MSE NDE #39-134 #40-192 #41-274 443-337 #44-408 
MSEXCP #41-269 41-269 41-269 #41-270 41-270 41-270 #41-271 41-271 41-271 #41-272 
41-272 41-272 #42-315 42-315 42-315 #42-316 42-316 42-316 #42-318 42-318 


MSGEN #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-55 #38-65 


#39-94 #39-94 #39-101 #39- 101 939-117 #39-117 439-117 939-117 039-134 #39-134 


| " 10 
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[MACRO CROSS REFERENCE CREF. vO1 SEQ 0337 


MACRO NAME REFERENCES 
#40-143 #40-143 #40-143 440-143 #40-192 #40-192 #41-256 #41256 #41-274 #61-274 

| #52-300 #42-300 #43-337 #43-337 #44-376 444-376 

\MSGETS 439-134 39-134 #40-192 40-192 #41-274 41-274 #42-312 42-312 #42-314 42-314 

#42-317 42-317 #42-320 42-320 443-323 43-323 #43-328 43-328 #43-337 43-337 
#44-382 44-382 #44-408 44-408 

MSGETT pie t§-336 #42-314 42-314 #42-317 42-317 #42-320 42-320 #43-323 43-323 

| MSGNGB #38-39 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 
#38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 
#38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 
#38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 
#38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 
#38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 
#38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 #38-65 438-65 #38-65 


MSGNIN #38-65 38-65 38-65 38-65 38-65 38-65 #38-65 38-65 #38-65 38-65 
#38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 
#38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 
#38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 
#38-65 38-65 #38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 38-65 
#38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 
#38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 
#38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 
#38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 #38-65 38-65 
#38-80 #38-80 38-8 38-80 #39-85 #39-85 39-85 39-85 #39-101 39-101 
#39-101 39-101 #39-117 39-117 #40-143 40-143 #41-256 41-256 #41-269 41-269 
41-269 41-269 41-2 #41-270 41-270 41-270 41-27% 41-270 #41-271 41-271 
41-271 41-271 41-271 41-271 #41-272 41-272 41-272 41-272 41-272 41-272 
#41-274 41-274 #42-300 42-300 #42-311 42-311 42-311 42-311 #42-312 42-312 
#42-313 42-313 42-315 42-313 #42-314 42-314 #42-315 42-315 42-315 42-315 
42-315 42-315 #42-316 42-316 42-316 42-316 42-316 42-316 #42-317 42-317 
#42-318 42-318 42-318 42-318 42-318 42-318 #42-319 42-319 42-319 42-319 
#42-320 42-320 #43-322 43-322 43-322 43-322 43-322 43-322 #43-323 43-323 
#43-324 43-324 43-324 43-324 #43-325 43-325 43-325 43-325 #43-326 43-326 
43-326 43-326 #43-327 43-327 43-327 43-327 #43-328 43-328 #43-329 43-329 
43-329 43-329 43-329 43-329 #43-330 43-330 43-330 43-330 #43-331 43-331 
43-331 43-331 #43-332 43-332 43-332 43-332 443-333 43-333 43-333 43-333 
#43-334 43-334 43-334 43-334 #43-337 43-337 

MSGNTA #39-134 #39-134 #40-192 #40-192 #41-274 #41-274 #43-337 443-337 

MSHAPT #38-65 #38-65 

MSHNAP #38-65 #38-65 

MSINCR #38-39 #38-39 #39-117 #39-117 #39-117 #39-117 #40-143 #40-143 #40-143 #40-143 


#41-256 #41-256 441-256 #41-256 #42-300 #42-300 #42-300 #42-300 #44-376 #44-376 


MSMCHI #38-13 #38-13 
MSMCLO #38-13 #38-13 
MSPOP tt abt +4 #40-192 40-192 #41-274 41-274 #43-337 43-337 #44-382 44-382 
MSPUSH #38-39 #38-39 #39-117 #39-117 #40-143 #40-143 #41-256 #41-256 #42-300 #42-300 


#44-376 444-376 


coo 
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InackO CROSS REFERENCE CREF | VO1 SEQ 0338 


‘MACRO NAME EFERENCES 

‘MSRADI W136 #41=269 #41-270 #41-270 #41-271 #41-271 #41272 #41-272 #42-311 #42-311 
#42-313 #42-313 #42-315 #42-315 #42-316 #42-316 442-318 #42-318 #42-319 #42-319 
#43-322 #43-322 #43-324 443-324 #43-325 #43-325 #43-326 #43-326 #4 3-327 #43-327 
ote 882 rt aH #43-330 #43-330 #43-331 #43-331 #43-332 #43-332 #43-333 #43-333 
MSSETS o71.the teat A #39-117 439-117 #40-143 440-143 #41-256 #41-256 #42-300 #42-300 
MSWORD #38-65 #38-65 #39-101 #39-101 #39-101 #41-269 #41=269 #41-270 #41-270 #41-271 


ark. 819 #42-312 #42-313 #42-313 #42-314 


443-329 #43-329 #43-330 


MSXFER #42-312 #42-312 #42-314 #42- #42- #42-317 #42- 442-320 443-323 443-323 
#43-328 #43-328 

POINTE 38-46 

svc #38-12 38-13 

XFER 42-317 43-323 

XFERF 42-312 42-314 


XFERT #42-320 #43-328 


